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Together the ORIC-1 Micro and 
IJK Tcltuese bring you the dawning 
of a new era... 


Fleet Commander in the 


13K Software Ltd present... 


oR Candy Floss 


mma say 4 seein mame 


Two classic games reprc 
duced here for your ORIC-1 
Micro to test your mental 
agility and reflexes to the 
fusit 

For the 48K ORIC-1 ONLY 
Only €7 .S0 inc. 


Two top educational games 
proven as best seliers on the 
BBC Micro put together 
here on one cassette for 
twice the fun on the ORIC-1 
Micro for the 48K ORIC-1. 
Only £7.50 inc. 


NO MORE TO PAY 


All advertised software is in stock NOW and will be 
a despatched within 48 hours of receipt of order. 
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IJ K {") 24 HOUR ANSAFONE 


1JK Software 
bl * 
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It looks like Oric Products Inter- 
national have managed to sort 
out the delay problems with the 
Oric 1, 48K models can be seen 
almost anywhere, although 
16K’s are still a bit thin on the 
ground. This means that soft- 
ware and add-on manufacturers 
can begin production of all the 
goodies they have been telling us 
about, which, of course, is all 
good news for us. 


One of the signs of a successful 
computer is the number of 
accessories that are available for 
it. The expandability of the Oric 
should allow a vast number of 
peripherals to be designed. In 
the near future we should be 
seeing joy-sticks, light pens, I/O 
cards, |. memory — expansion 
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modules and perhaps even a 
speech module. 


One of the main criticisms of the 
Oric manual has been the lack of 
specific details on system vari- 
ables and machine code entry 
points. There are a number of 
reasons for this. Due to copy- 
right and licence agreements 
Oric products are only permit- 
ted to give out minimal infor- 
mation on the inside workings of 
Basic. 


Another reason is that as minor 
faults are corrected in the Basic 
so entry points may move up or 
down in memory. This would 
mean that any program written 
to use these Rom routines may 
not function correctly on a dif- 


ferent machine. Obviously once 
things have settled down in the 
Rom then some useful informa- 
tion can be released. The final 
reason for the non-appearance 
of technical data is simply that at 
the time of writing the Oric 
manual much of this information 
simply wasn’t available to the 
authors. 


It is hoped that through this 
magazine we can become a 
clearing house for all the tech- 
nical information on the Oric 
and its peripherals. We are very 
interested to hear what dis- 
coveries you make and, of 
course, will pay for any articles 
or programs published. 


So keep them flowing in! 


Oric Catch up 


Oric Products International 
have now cleared their mail 
order backlog. Managing Direc- 
tor, Barry Muncaster, said ‘It is 
a great relief to all of us to be 
able to say that we currently 
hold no order that has been with 
us longer than our quoted 28 
days. Oric will be phasing out 
the mail order side of their 
business over the next few weeks 
and allowing their dealers to 
take a greater share of the mar- 
ket.’ 


Colour Printer 
Arrives 


The first official add-on for the 
Oric has been released. This is 
the 4-colour printer which has 
been expected for some time. 
The printer uses standard 41/2" 
paper and is switchable between 
40 and 80 characters per line. 
The writing mechanism is a 
clever arrangement of 4 minia- 
ture ball-point pens. These are 
selectable by software and give 
red, green, blue and black inks. 
There are 15 programmable cha- 
racter sizes and 4 different draw- 
ing angles. The printer doubles 
as a penplotter and allows the 


drawing of complex diagrams 
and pictures. The printer con- 
tains an integral power supply 
and a printer lead is included. 
The price is £169.95 inc. vat and 
£5.95 postage and packing. A 
small quantity is available for 
mail order from Tangerine 
Computer Systems at 3 Club 
Mews, Ely, Cambs, CB7 4NW 


16Ks begin mail 
order 


In another statement from Barry 
Muncaster we were told that 
16K Orics are now in full pro- 
duction and will be going to mail 
order customers first. The 
reason for the delay in 16K 
production has been that out of 
every hundred Orics ordered, 
eighty of them were for 48Ks, 
and so it made sense to clear the 
rapidly increasing backlog. 
Total Orics ordered for delivery 
in 1983 now stand at over 
350,000 machines. 


Apparently production on the 
16K was also delayed due to 
some minor technical problems: 
‘The 16K Oric is exactly the 
same design as the 48K Oric. We 
would have had no problems if 
the specification of a particular 
chip had not altered just prior to 
manufacture. However it did, 
which resulted: in us having to 
completely change the 16K cir- 
cuit board. This has meant a 
12-week delay in production. 
Fortunately we are now over the 
technical problems and in full 
production of 16Ks’ said Barry 
Muncaster. 
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Lead us not 
Astray! 


A range of cassette leads for the 
Oric has been released by Clares 
of Winsford in Cheshire. They 
are priced at £2.50 and to help 
the novice who is not sure which 
lead he requires, a sample of 
each type is included in a pack 
for £5. The balance is returned 
when the customer has made his 
choice. The leads should fit most 
cassette recorders and include 
jacks for remote control. More 
information from Clares, 222, 
Townfields Road, Winsford, 
Cheshire CW7 4AX._ Tel: 
(06065) 51374. 


New Book from 
Granada 


The first book to appear for the 
Oric is ‘The Oric 1 — And how to 
get the most from it’ by that well 
known author Ian Sinclair. The 
book is aimed at the absolute 
beginner and is designed to give 
a better understanding of the 
functioning of the Oric. The user 
is taken right from the beginning 
of setting up the Oric and con- 
necting cassette recorders right 
through to array and file hand- 
ling and user defined graphics. 
Although the book doesn’t 
break much ground as far as the 
experienced user goes, it would 
be valuable for the novice who 
wishes to get a full understand- 
ing of his machine. The book is 


News Brief 


available from most sellers of 
Granada Publications and also 
by mail order from Tansoft. 


annee 
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Tansoft Range 
Extended 


Tansoft have now added four 
new titles to their range of cas- 
sette software. Oricmon is a 
complete machine-code monitor 
including mnemonic assembler/ 
dissassembler block move and 
verify. The package costs £15.00 
inc. vat. and 90p postage. House 
of Death is a terrifying follow up 
to Zodiac and takes place in a 
haunted house. House of Death 
is £9.99 + 40p postage. Multi- 
games Pack 2 contains Hang- 
man, Moonlander, Substrike, 
Roadrace and Link-4D. Pack 2 
costs £6.90 inc. vat + 40p post- 
age. Top of the range is Oric- 
Munch which is a high-speed 
and challenging version of that 
well known arcade game. Feat- 
uring a variety of ghosts and fruit 
and written entirely in machine 
code. Oric-Munch is £7.95 + 
40p postage. 
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As expected, software has star- 
ted to trickle through for the 
Oric, albeit mainly in Basic and 
almost exclusively for the 48K 
model. The reasons for the delay 
in software coming on to the 
market is obvious when you 
think about it. To start off with 
nobody had any Orics to actually 
write software with. Once soft- 
ware houses received _ their 
machine there was then the diffi- 
culty of understanding how to 
use it with the early thirty page 
manual. It takes about a month 
to really familiarise yourself 
with a computer before you can 
safely begin writing software for 
it. 


The first tapes I received for the 
Oric were from C.C.S. in Lon- 
don. 


They were two business simula- 
tion type games written in Basic 


News _ 


Software 


and converted from their origi- 
nal machine, the Spectrum. 


AIRLINE 


Airline is a game that allows you 
to take the hot seat in running an 
airline. You have to buy or lease 
your airplanes, hire pilots and 
take on maintenance crews. You 
also have to worry about fuel 
costs and charter rates. A nice 
touch is a teleprinter display 
which types out messages from 
the tax office or the House of 
Lords. The aim of the simulation 
is to raise enough funds for your 
company, L-Air, to take over 
British Airways. 


There are several charts dis- 
played of charter rates and pay- 
loads which look impressive but 
I found that not enough infor- 
mation was supplied to really 
make use of them. 


/ 
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Dallas is a clever simulation 
which allows you to take the role 
of ‘Cliff Parnes’ running an oil 
company which is competing 
with the ‘Euing’ oil company. 
You have to make the decisions 
involved in running the com- 
pany with the aim of taking over 
Euing Oil. 


A colour map is displayed and 
you have various options of 
prospecting using seismic sur- 
veys, drilling test wells, bidding 
for potential sites and setting up 
production facilities. 


News 
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Various symbols are shown on 
the map which represent oil rigs, 
concessions, pipelines and pro- 
duction facilities. 


To complicate matters you will 
be up against blow-outs, torna- 
does and competition by the 
Euings. You will have to borrow 
money to buy equipment and 
have to cope with sudden tax 
demands. I found this game a 
real challenge and even my own 
experience in the oil business did 
not stop me being thrashed time 
after time. 


Of the two programs, Dallas was 
probably the better but, to be 
fair, I should say that I only had 
preliminary versions of each. 
Airline and Dallas are available 
for £7.95 from C.C.S., 14 Lang- 
ton Way, London SE3 7TL and 
also from most Oric stockists as 
Oric themselves distribute these 
games. 


New from Tansoft is Zodiac, an 
enormous adventure game writ- 
ten almost entirely in Basic, 
although the save game facility is 
in machine code. The program is 
just over 36K in size and takes 29 
minutes(!) to load at slow speed. 


It is a text only adventure which 
also uses sound and music. 


The aim of the adventure is to 
find the twelve signs of the 
Zodiac which are hidden in vari- 
ous strange locations in a small 
town. Once these have been 
found you use them to find 
treasure. Although the first few 
signs are fairly easy to discover 
you soon run into difficulties. 
There is a ram, which I’m sure 
represents Aries, which absol- 
utely refuses to let you take it 
with you. There is also a radio 
that won’t shut up. Zodiac is a 
parallel adventure in that you 
can be performing several tasks 
at once and aren’t confined to 
doing things in a fixed order. 


A nice touch is the ability to 
string commands together as 
one line, such as ‘GO SOUTH 
AND OPEN DOOR THEN 
LOOK AROUND’. Two minor 
criticisms are that every time 
you go into a different location 
you get a little tune playing, this 
can become rather irritating 
after a little while. The other 
criticism is that because the pro- 
gram is written in Basic it some- 
times is a little slow. The pro- 
gram is full of witticisms and silly 


messages, for instance if you get 
killed, it says ‘Oh Dear, I’ve 
come over all dead!’. 


Zodiac is available for 
£9.99 + 40p postage and pack- 
ing from: Tansoft, 3, Club 
Mews, Ely, Cambs and is also 
distributed by Oric. Please note 
that this is not the same as the 
Zodiac sold by Micro- 
Marketing. 


Finally, we have received from 
Durell Software their Lunar/ 
Asteroids tape. Both of these 
are written in Basic and are 
really aimed at the younger Oric 
Owner. Lunar Lander shows the 
landscape of the moon with your 
lunar module in the middle. The 
module takes off from the 
moon, you then have to guide it 
down, controlling the thrust of 
your rockets. It is very difficult 
to land and quite often you will 
run out of fuel. 


Asteroids is a very much cut 
down version of the arcade 
game. Your spaceship is in the 
middle of the screen with hordes 
of asteroids advancing towards 
you. Youcan control the left and 
right movements of your ship to 
avoid them. 


Each program is supplied in two 
forms. A ‘runable’ version and 
an expanded version’ with 
detailed REMark statements to 
allow you to see how the pro- 
gram was written. 


Lunar Lander/Asteroids is avail- 
able for £6.95 from Durell Soft- 
ware, Higher Combe, Combe 
Florey, Taunton, Somerset. 
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Available Now From PSS. 
REAL SOFTWARE 


FOR YOUR iu 


HOPPER 


ALL MACHINE CODE VERSION 
OF “FROGGER” FOR YOUR 
ORIC 1. 

FEATURES:— VARIABLE SPEED 
TRAFFIC, 3 LANE HIGHWAY, 
SNAKES, TURTLES, DIVING 
TURTLES, FLEAS, LOGS, 
DECREASING TIME LIMIT, 
EVER INCREASING GAME 
SPEED, HI SCORE TABLE, FULL 
COLOUR, AMAZING GRAPHICS, 
gSUPERB SOUND. YOU HAVEN'T 
PLAYED “FROGGER” UNTIL 
YOU'VE PLAYED “HOPPER”. 


6-95 
AVAILABLE SOON:— 


THE ULTRA 


THIS IS THE GAME FOR ALL 
gYOU ARCADE WIZARDS OUT 
a THERE. . ZAPPING ALIENS 


WAS EASY UNTIL “THE ULTRA”... 


g THIS GAME IS TOTALLY 

g WRITTEN IN MACHINE CODE 

B TO MAKE IT THE FASTEST, 
TRICKIEST ARCADE GAME 
OF THEM ALL. 
16 DIFFERENT SCREENS COLOUR, 
SOUND AND HI RES. GRAPHICS 


CENTIPEDE 


AN ALL MACHINE CODE 

VERSION OF THE ARCADE GAME. 
FEATURES:— MUSHROOMS, 
SPIDERS, FLEAS, MUSHROOM 
LAYING BEETLES, SOUND, 
COLOUR, HI RES. GRAPHICS, 
HIGH SCORE TABLE, GAME RESET 


THIS PROGRAM HAS BEEN 
APPROVED BY ORIC 
PRODUCTS INTERNATIONAL 


6-95 
ORIC-~MON 


ORIC-MON IS A POWERFUL 
MACHINE CODE MONITOR 
PLUS A FULL DISASSEMBLER 
FOR YOUR ORIC 1. AN 
ESSENTIAL SOFTWARE TOOL 
FOR WRITING, DEBUGGING 
AND RUNNING YOUR MACHINE 
CODE PROGRAMS OR MACHINE 
CODE SUBROUTINES TO BE 
CALLED FROM BASIC. CON- 
TAINS ALL THE FEATURES 

OF MONITORS FOUND ON 
MUCH LARGER MACHINES. 

A SUPERB PROGRAMMING AID 
FOR YOUR ORIC 1. 8 < 95 


= ee __ 
| MACHINE CODE MONITOR & DISASSEMBLER_ | 
| ESSENTIAL FOR WRITING @ DEBUGGING ETO. | 


AVAILABLE SOON 


LIGHT CYCLE 


YOU HAVE BEEN CHOSEN BY 
THE M.C.P. TO RACE ON THE 
INFAMOUS GRID. CAN YOU 
SURVIVE? 100% MACHINE 
CODE. 1 OR 2 PLAYERS, RACE 
THE COMPUTER OR ANOTHER 
PLAYER. ..SO FAST YOU 


WON'T BELIEVE IT!! 
6-95 


INVADERS 


QUITE SIMPLY THE ULTIMATE 
VERSION OF “SPACE 
INVADERS” AVAILABLE TODAY. 
FEATURES:— ALL MACHINE 
CODE, SMOOTH ACTION LASER 
BASE, “LIVE” ALIENS, 
CRUMBLING WALLS, EXPLO- 
SIVE SOUND EFFECTS, FULL 
COLOUR, HI RES. GRAPHICS, 
INCREASING GAME SPEED, 
BONUS POINTS, MOTHER 
SHIPS AND MORE.... 


6-95 


SEND CHEQUE OR PO. TO PS.S.452 STONEY STANTON RD. COVENTRY CV6 5DG. FOR INSTANT 


% » CREDIT CARD SALES TEL(0203)667556 
SR TRADE ENQUIRIES CONTACT JOHN FLETCHER, COVENTRY (0203) 667556 


Features 


An Interview with Peter Harding 


How did you become involved 
with Oric Products Interna- 
tional? 


I have known the directors of 
Tangerine Computer Systems 
personally for a number of 
years. We have been involved in 
other projects and _ products 
— one of which is the Tantel 
Adaptor —a product designed 
by Tangerine —- marketed by 
Tandata Marketing Ltd — then 
my company. 


The product and my company 
were sold to a large public com- 
pany and the product (the Tan- 
tel) is still market leader in the 
viewdata field. Whilst running 
Tandata, the Oric appeared on 
the drawing boards and | felt 
privileged at being asked to 
become head of sales and mar- 
keting — a position I had no hesi- 
tation in accepting especially 
when I realised the potential of 
such a good product. Tangerine, 
as you probably know designed 
the Oric. 


How do you set about marketing 
a product which clashes head-on 
with the likes of Sinclair — Com- 
modores — Acorn, Etc? 


The most difficult aspect of mar- 
keting a product such as Oric is 
to get your pricing right. Factors 
such as cost of product, the 
position you want your product 
to occupy in the range of com- 
petitive micros, rate of product 
manufacturing output, dealer 
margins and quality of product, 


all have to be taken carefully 
into account. Add to this mar- 
keting trends and you have a 
difficult task to prepare a 
meaningful business plan to take 
you into °84 and °85. 


My job has been considerably 
easier for the following reasons: 


1. The Oric is currently the 
most powerful micro on the mar- 
ket for its price. 


2. The Oric offers more in terms 
of real features than any of its 
rivals. 


3. The overall design and looks 
of the Oric are superb and there- 
fore appeal to the potential cus- 
tomer. 


4. The ULA (Uncommitted 
Logic Array) incorporated in 
the Oric enables the price to the 
customer to be considerably less 
than in computers which use 
generally available chips and 
processors. The Oric ULA takes 
the place of 80 chips which 
would normally be needed to do 
the job it does. 


What are the planned manufact- 
uring and sales figures for the 
Oric during the coming months. 
Will the Oric be readily avail- 
able? 


By the time the Oric Owner goes 
to print the Oric will be well into 
mass production. 


During February, we made and 
sold 25,000 units and May’s 


figure was 32,000 units. All of 
our mail order sales will be 
fulfilled by the end of April and 
the Oric will be available readily 
in W. H. SMITHS, DIXONS, 
LASKYS, MENZIES, SPEC- 
TRUM (outlets), COMPUT- 
ERS FOR ALL (outlets), 
GREENS (DEBENHAMS), 
MICRO ‘C’ and hundreds of 
good independent computer 
dealer outlets. 


Why have Oric stopped selling 
product via mail order? 


Quite simply, numbers. To mail 
order the Oric is a vast project in 
view of the response the Oric has 
had in the market place. I also 
believe that in supporting our 
valued dealers and distributors 
—it is better to support them 
rather than be in mail order 
competition with them. A con- 
flict of interests in the early 
stages of Oric Products Internat- 
ional life would not be in the 
interests of us or our dealers. 
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I also believe that a high street 
dealer is in a better position to 
support a customer — who, in 
general, needs help with both 
the CPU and the software and 
peripheral products he will 
invariably want to purchase. 


What plans do Oric have for 
peripheral products and _soft- 
ware to support the Oric? 


A number of Software houses 
have been commissioned to 
write software which is even 
now, becoming readily available 
via various Outlets. Oric is also 
launching its own comprehen- 
sive range of games, business 
and educational software. 


A new 4 colour plain paper 
printer is planned to be available 
in June/July. It is a beautifully 
designed quality product and 
will cost approx. the same price 
as the 48K unit. The printer will 
be provided with the printer lead 
and will plug into the centronics 
port on the Oric. 


Our Micro floppy discs are still 
being finalised and should be in 
production for sale during Sep- 


tember/October °83. We have 
opted for the 3 inch format as 
being the most sensible size and 
the best value for money. A 
price has yet to be finalised. 


The long awaited Modem 
should also be available in July 
and will allow users the facilities 
of Prestel — Micronet 800 — elec- 
tronic mail — teleshopping and 
telesoftware. 


Our overall policy with the hard- 
ware Is to produce a comprehen- 
sive range of quality built, value 
for money products. We will 
not, under any circumstances, 
build cheap and nasty products 
which has a short life cycle. 


Is this last statement a direct jibe 
at Sinclairs products which as 
you know sell in vast numbers? 


Not really, who can criticise 
Sinclairs marketing and he has 
a product which—as_ you 
say — sells very well indeed. All 
of the products that Oric will 
produce, however, will be of a 
much higher standard and qual- 
ity of those currently produced 
by Sinclair — which will be, of 


course, reflected in the price of 
our products. I reiterate, that 
Oric will produce high quality 
CPU’s, Printer, Discs and add- 
ons at prices that in general will 
be far better value for money 
than any currently available. 


If what you say is true, how then 
can you possibly sell the Oric at 
the same price or less than the 
Sinclair product? 


As I said earlier, preparing a 
marketing plan is very difficult 
and one of the factors I men- 
tioned was market trends. 


Bearing this in mind, it must be 
obvious that the Oric, because it 
is a far better product both in 
specification and quality of build 
than our rivals unit — must cost 
more to manufacture, and of 
course it does. 


The Oric therefore was pitched 
right at the SPECTRUM know- 
ing that the price of this product 
will be reduced possibly quite 
drastically. 


The number of computers we 
are building will of course affect 
our competitors sales and where 
they can not compete they must 
reduce their prices to maintain 
market share. 


Will the price of the Oric be 
reduced, therefore? 


No, not in the _ foreseeable 
future, our unit represents great 
value for money and that is why 
our customers will part with 
their hard earned cash. 
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The press have criticised Oric for 
making the same mistake as your 
well known rivals in launching 
your product too early and not 
being able to supply demand. 
Have you any comments to 
make? 


It is true that early demand 
outstripped supply and we did 
let down a large number of mail 
order customers badly. We are 
of course very sorry this hap- 
pened. 


However, the real facts are that 
our first ads were issued in 
November °82 magazines — we 
did ship product in December 
and have now caught up with all 
the backlogs of orders. We will 
be supplying a range of peri- 
pherals all within 8 months of 
our launch — this is in fact a 
much better performance than 
any of our rivals. Whilst on the 
subject of the press, I would like 
to make the following observa- 
tions: 


1. A majority of computer 
magazines do not have their own 
technical staff to do benchtests. 
This results in outside contrac- 
tors being asked to review 
machines who are often either 
incompetent or biased towards 
their own systems. The reviews 
therefore of the Oric although in 


the main very favourable are 
often totally inaccurate and do 
not extol the full virtues of the 
Oric, e.g. only two colours in 
Hi-Res mode. 


2. The general standard of 
reporting is diabolical and there 
is more inaccurate information 
printed than actual facts — which 
of course does nothing for the 
British computer industry. 


3. There are obviously too 
many magazines duplicating 
information and using unethical 
methods to obtain information. 
For example, one magazine 
wined and dined one of our 
sixteen year old programmers 
— without the consent of the 
management — and printed a 
large article which included 
information about our product 
and this lad’s ambitions. This 
damaging article went to press 
without Oric’s approval. 


Enough about the computer 
press — some of the magazines 
are very good. 


How many Orics do you expect to 
sell in 1983 and how do you see 
the computer market develop- 
ing? 


Oric expect to sell approxi- 
mately 400,000 units to Febru- 
ary ’84 to be sold in the UK and 
Europe. This figure does not 
include the considerable product 
we expect to be sold in JAPAN, 
S.E. ASIA, AUSTRALIA/ 
NEW ZEALAND and _ the 
USA. 


The market place for computers 
is still rapidly expanding and the 
pundits estimate that 1.2 million 


CPU’s will be sold in the UK 
during 1983. 


Currently something like 80% of 
all units currently sold are with 
games applications — this mar- 
ket will eventually level off. The 
computer market will then 
expand only with dedicated 
applications. The Oric hardware 
has of course been designed 
around taking advantage of 
these applications. I have 
touched on these applications 
earlier but to reiterate, they are: 


1. Telesoftware — In the not too 
distant future the majority of all 
software will be transmitted via 
a telephone line at a very cheap 
cost, negating the need for costly 
cassettes and offering the user 
access to hundreds of programs. 


2. Home Banking — Again pro- 
totype systems are up and run- 
ning where with the use of a 
computer and modem an indivi- 
dual can access his bank 
account, add and delete stand- 
ing orders, pay bills and, there- 
fore, negate the need for regular 
trips to the bank. 


3. Teleshopping — An obvious 
application is already available 
on Prestel. 


4. Electronic Mail — Again 
already in use via a computer 
with a modem utilising the Pres- 
tel Mailbox system. 


These are the real applications 
that will put a computer into 
every home. 


Your comments have given us a 
useful insight into your market- 
ing plans for the Oric. Thank 
you very much Mr Harding. 
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3D Function Plot: A number of 
people have mentioned that 
there are two HIRES commands 
and an endless loop in this pro- 
gram. They will not cause the 
program to run incorrectly but 
can be altered or removed if 
required. They are in fact what 
was left of a larger program 
which was stripped down to this 
final printed version. 


Oric Products International 
have asked us to mention some 
of the problem areas in the Oric 
Rom and ways of getting round 
them. 


1. TAB function: This only ap- 
pears to work correctly after 
position 13. Use SPC(x) func- 
tion in its place. 


2. STR$ function: this inserts 
illegal control character at 
beginning of string equi- 
valents of numbers (positive 
only). Strip off first character 
of string, e.g. AS= 
RIGHT$(A$,LEN(A$)-1). 


3. FILL command: Does not 
correctly update graphics 


. Printer 


cursor position after execu- 
tion. Use CURSET after 
FILL command. 


. String or Array corruption. 
Caused by incorrect setting of, 


HIMEM on power-up. Set 
HIMEM #97FF to cure. 


. POKE command: Will not 


accept hex values after com- 
ma. Convert to decimal 
before use. 


. CIRCLEs not circular: Not 


really a fault but caused by 
pixels themselves not being 
square. Could be compen- 
sated for but would cause 
horizontal and vertical radius 
lengths (in pixels) to become 
unequal. This would make 
tasks such as drawing a clock- 
face very difficult. 


squiggles: Printer 
port randomly outputs squig- 
gle characters ($7F) onto 
printer. Caused by Keyboard 
scanning interrupts interact- 
ing with printer port. To fix, 
turn off interrupts before 
using printer: 


CALL#E6CA 
interrupts. 
CALL#E804 turns on inter- 
rupts. 


Warning: Do not use WAIT 
command while interrupts are 
off as it functions by counting 
interrupts. If interrupts are off 
then the WAIT command will 
never finish. As interrupts are 
normally generated every twen- 
tieth of a second turning them 
off will make your program run 
about 20% faster! 


turns off 


8. Program loads OK but when 
listed screen is filled with 
‘U’s. Caused by linkage 
between each line being cor- 
rupted and pointing into 
empty memory. Can be fixed 
by entering a dummy line at 
the beginning of the pro- 
gram, e.g. 1 PRINT, and 
then immediately deleting it. 
This will force Basic to re-link 
all lines. 


If you have found any more bugs 
or problem areas and have 
managed to get round them 
please drop us a line. 
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And 


Forthly... 


Tunesmith-2 


_ By now most 48K owners should 
have received their Forth pack- 
age. Apart from the Forth 
processor itself you are also sup- 
plied with the editor, extensions 
for sound and graphics and the 
assembler. Also supplied is a 
demonstration program called 
Tunesmith. This allows the crea- 
tion of simple three-part har- 
mony for the playing of music. 
Although reasonably impressive 


as it stands, I have now 
improved the program to give a 
wider octave range, dotted 
notes, and better separation 


between notes. 


Some explanation of the pro- 
gram would be useful to under- 
stand how tunes are created. 
Tempo is defined to hold the 
playing speed of the tune. 
MASK is used to select which 
tone channels are to be enabled 
at any time OCT and NTE are 
temporary variables used to 
hold the current octave and note 
for the music command. We 
then begin the definitions to 
allow notes to be played. N1, N2 
and N3 select channels 1, 2 and 3 
respectively. X1, X2 and X3 
turn off each channel. 


WAIT and TRIGGER control 
the length of notes and the gap 
between them. To allow for 
quavers and crotchets etc, we 
have a set of words, WH, HF, 
OR, EI, SX which mean whole 
note, half, quarter, eighth and 
sixteenth. On screen 3, lines 13 
and 14 are two further durations 
‘OR’ and ‘HF’, which stand for 
dotted quarter and dotted half 
notes. 


Screens 2 and 3 define all the 
notes between octaves | and 5. 
These could be extended to 
cover octaves 6 and 7 but most 
musical compositions are un- 
likely to need them. 


Screens 4 and 5 contain the 
piece of music to be played, 
divided into lines then sub- 
divided into bars. To see how a 
tune is put together lets look at 
BARI which is on screen 4, line 
2, X2- turns off channel 2. Al N1 
tells the computer to play the 
note of A, from octave | into 
channel 1 and at the same time 
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play an E from octave 3 through 
channel 3. 


OR tells the machine to play the 
preceding notes for the duration 
of one quarter (quaver) period. 
This process is repeated for the 
rest of the bar, and the rest of 
the piece. Note that a Rest is 
programmed simply by turning 
off the appropriate channel. 


The program produces sustained 
organ-like tones. If you wish to 
have a more natural piano tune 
you should amend lines 2, 3 and 
4 of screen 1| so that the volume 
parameter for the MUSIC com- 
mand is set to 0 instead of 4. 


This type of program has a great 
deal of potential and many ad- 
ditional features could be 
included. One such _ feature 
would be a percussion effect 
using the noise channel. I look 
forward to receiving your modi- 
fications or additions to the pro- 
gram and also any music that 
you compose for it. 


Software 


WH TRIGGER 100 0 DO WAIT LOOF 0 0 © © FLAY 
HF TRIGGER 50 © DO WAIT LOOF © © © © FLAY 
OR TRIGGER 25 © DO WAIT LOOF © 0 © O PLAY 
EI TRIGGER 12 © DO WAIT LOOF © 0 0 © FLAY 
SX TRIGGER 6 © DO WAIT LOOF © © © © FLAY 


SCR # 1 
O ¢( ORIC TUNESMITH-FAUL KAUFMAN JAN 83 ) i 
1 75 VARIABLE TEMF'O © VARIABLE MASK © VARIABLE OCT © VARIABLE NTE 
2: Ni MASK D2 1 OR MASE ! 1 OCT ® NTE ®D 4 MUSIC 5 
3 : N2 MASE 2 2 OR MASK ! 2 OCT D9 NTE ® 4 MUSIC 3 
4 : NS MASK 2 4 OR MASE ! 3 OCT D2 NTE ® 4 MUSIC 7; 
S : X1 MASE 2 254 AND MASE ! 3; 
6& : X2) MASK 2 253 AND MASE ! ; 
7 : X3 MASK 2 251 AND MASK ! 35 
8 : WAIT TEMFO 2 © DO LOOP ; 
9 : TRIGGER MASE 2 0 1 2500 PLAY ; 


# 2 
( TUNESMITH CONTINUED ) 
* BT NTE ! OOT ! ¢ 
> C3 3:1 ST 3 3 ST ; 
2 & & GT ¢ +: < Sr § 
4: G33 9 ST : : Ss 3a & 3 
S 2644 1 ST 3 : 3.57 ¢ 
62 £44 5 'ST 3 ¢ F4 4 6 ST = Z ST s 
7 : G4 4 9 ST 3; : AS 4 10 ST 4113S H 
Ge €5 S 1ST 3 > Cas S 2 ST a ST 
9s ES SS -ST 3 2 FS S OST 5 7ST § 
16 % GAS S PisT § s 5S tO ST 3 © AKS S 11S : 
11 
12 
13 
14 -- 
15 
SCR # 3 
© € TUNESMITH -EXTRA OCTAVES ) 
1 2 C22 1 GP F. 2 Sy -8 
2: D2 23 ST § = 4 ST $ 
Se B22 SST ¢ 2 & ST 3 
4 FH 27 ST ¢ : 
S 3 G2 2-9 ST 3 
A#2 2 14 ST 35 3 
Ci. D> 2ST eye 
Dii 3 ST 7 
El 13 ST 3 «Fi 1 6 ST 


i 


F#1 17 ST 5; : Gt 18 ST 

G#1 1 9 ST ¢ Al 1 20 ST 3 

A€#1 111 ST 5; : Bi 1 12 ST 3 

OR. TRIGGER 37 © DO WAIT LOOF 0 6 6 © PLAY 
HF. TRIGGER 75 0 DO WAIT LOOF © © © © FLAY 
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SCR # 4 
© ( MISTRESS WINTERS JUMF-JOHN DOWLAND TRANSCRIBED BY FAUL KAUFMAN 

1 MARCH 83 ) 

2 BAR1 X2 Al Ni ES NS OR AS NS OR ES NS OR 3 

3 BAR2 X1 AS NZ SX GHS NZ SX AZ NB Al N1 HF C#2 N1 ES NS OR ; 

4 : BARS D2 N1 AZ N2 FHS NS OR. ES NS EI B1 N1 G#2 NZ DZ NS OR ; 

S : BAR4 Al Ni AZ N2 C#S NE HF. 35 

6& : BARS OR X1 X2 ES NZ OR E1 Ni OR = 

z 

8 

a 


BARS G1 Ni D2 N2 G2 NS OR DS NS OR X2 Al N1 C#E NS OR ¢ 
BAR7 E1 Ni B2 OR. X1 X3 AP N2 EI EF Ni G#2 NZ B2 NZ OR ; 
BARB Al Ni E2 N2 AD NS HF. 3; 

LINE1 BAR1 BARS BART BAR4 BARS HARS BAR7 BARS 3; 

BAR? X1 X2 E2 NZ OR G#2 NZ OR AZ NS OR ; 

BARIO ES N2 B2 NS OR. X1 D2 NS EI C#2 N1 

N2 C#3 
14 : BARI1 Bi Ni F#S N2 DS NG OR. X1 X2 ES NS EI Al N1 AB NE 
S C#3 N3 OR 3 -- 


SCR # 5 
© ¢ TT CONTINUES!!! > 
1 : BARI2 E2 Ni G#2 N2 B2 NS HF. ; 
2 : BARIS Xi X2 Az OR C#3 NS OR DS NS OR ; 
3S : BARI4 AZ Ni C#3 N2 ES NS HF G#2 N1 BS N2 ES NS OR 
4 : BARIS F#2 N1I C#5 N2 F NS OR. X1 X2 G#3S NS EI AS NZ OR 3; 
S : BARI6 EZ Ni B2 NZ GHS NS HF. ; 
6& : LINE? BARS BAR1O BARI1 BARI2 BARIS BAR14 BARIS BARI6 ; 
7 : BARI7 Al Ni X2 AS NZ OR ES NS OR C#S NS 3 
8 : BARI8 Al N1 ES NS OR X1 CHS 
9 : BARI9 Bi Ni FHS NS OR X1 DS 
10 : BAR*O E1 Ni BS NS OR Xi GH 
11 : BAR2Z1 X1 AS NS SX GH NE SX N1 ES NS OR ; 
12 : BARZ2 Al Ni AS NS HF C#2 Ni : 
13 >: LINES BAR17 BAR18 BARI9 BAR 
14 : JUMF LINEt LINE1 LINE? LINES LINE? LINES 
15 70 TEMPO ! CR «" JUMP LOADED " 
Ok 
CLS 
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Features 


ORIC 


INSIGHT 


1 \ 
Mul 


Any 


CASSETTE 
HANDLING 


It is occasionally useful for the 
programmer to access the cas- 
sette sofware of the Oric directly 
in machine code. Although it is 
possible to access the 6522 via 
chip directly to set up cassette 
routines, such is the complexity 
of the chip itself, and its external 
connections, that it makes sense 
to use the machine code routines 
that are already included in 
Oric’s Basic. Figure 1, below, 
shows a block diagram of the 
Oric and gives an idea of the 
circuit complexity surrounding 
the VIA. 


Fortunately the cassette routines 
within Basic are fairly easy to set 
up and use through machine 
code, as there is not a machine 
code monitor generally available 
yet for the Oric most of the 
setting up will need to be done 
through Basic using pokes. 


lh 


I! y Ih 


1 


PAVUS FUCA 


SAVING A FILE 
ON TAPE 


Before we can save our file there 
are a number of pointers that 
need to be set up. 


$5F Low byte of start address 
$60 High byte of start address 
$61 Low byte of end address 
$62 High byte of end address 
$63 Auto load, 0=non auto- 
load file, 1=autoload file 
Basic of machine code, 
0=basic, 1=m/c 

Speed, 0= fast, 1= slow 


$64 


$67 


If you are saving a machine 
code program and wish it to 
autoload (run automatically 
after loading in) set $63 to | (in 
fact any non-zero value) and $64 
to 1. 


When the program is reloaded in 
it will start executing at the 
address pointed to by $5F and 
$60. 


You should also set up the 
filename of the program at loca- 
tions $35 upwards (for the next 
17 locations). The file name 
must be terminated by a null 


($100). 


Once the about locations are 
prepared you should then exe- 
cute the following: 


JSR $E6CA;; set up via 
JSR $E57B; store file 
JSR $E804; clear via, initialise 


keyboard 


It should be assumed that all 
processor registers are corrup- 
ted. 
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Features 


LOADING A FILE 
FROM TAPE 


To bring a program in off the 
cassette is a much simpler pro- 
cess than saving it. Simply set up 
the speed and filename as above 
then execute the following 
jumps: 

JSR $E6CA; set up via 

JSR $E4A8; load in file 

JSR $E804; turn off via 


You will get the searching mes- 
sage while it is waiting for the 
program followed by loading. 


One annoying feature of the 
above routines is that they will 
corrupt the pointers that Basic 
uses and so will not work satis- 
factorily from within a Basic 
program. 


FIG 1 


SAVING ARRAYS 


The hex listing below imple- 
ments a store and recall facility 
which is useable through Basic, 
once you have loaded in the 
routine either directly or 
through the Basic loader also 
shown below you should set 
HMEM to #97FF to protect the 
routine. 


To save an array you should first 
set the speed with POKE#67,0 


for fast or POKE #67,1 for slow. 


Then type Call 1024,xx where xx 
is your array name. This will 
store the entire array on tape. 
Beware of having a numeric 
array with the same name as a 
string array, e.g. A$ and A as 
you may later have loading 
problems. 


BLOCK DIAGRAM 
OF MAIN ORIC 1 
COMPONENTS 


MULTIPLEXED ADDRESS BUS 


To load in an array you should 
first dimension it in the program 
and then set the speed up. 
CALL 1027,xx will read in your 
array. If you haven’t dimen- 
sioned it large enough you will 
get an out of memory error. 


In the next issue I hope to be 
taking a closer look at the 6522 
via chip and how its timers can 
be used. 


Ny 
inant i) ' 
INT 
li Mil 
i SUNIL 
mI 


ll 
as Nitin ny 
TM ; , 


CIRCUITRY 


DYNAMIC _RAM_ REFRESH — SIGNALS 


DATA BUS 


ROM 
BASIC 


C224 -FFFF 


DATA BUS 


DATA BUS 


CASSETTE PORT 


ADDRESS BUS 


MAP 


ADDRESS BUS 


ADDRESS BUS 


EXPANSION CONNECTOR 
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Features 


Program Listing 


20000 REM ARRAY SAVER 

2000S A=#ERB00: READDS 

20008 PRINT:FRINT:FPRINT:FPRINT:FPRINT"Flease Wait...." 

20010 FORI=1TOLEN (D#) STEFS 

20020 V=VAL C"#"+MID$ (D$,1,2)) :POKEA,V:A=At+1: NEXT 

20030 READDS: IFD$< >"Z"THENZOO1O 

“9040 DOKE#400, #064C: DOKE#402, #4CBS: DOKE#404, #8824: RETURN 

20050 DATASIS9ISS32 3255 209C RB08 2063RB20BRAE GAP 25 20C6E SAS SS2OC6ESASS42 
OC6ES 2083 

20060 DATARB2ZO0A7ES2ZO04E 8 2860209CHB8082063R82096ES2050E 4609 25 DOF 920 30E 
685332030 


20070 DATAES8S34A0028 1 CECS23CS8R1 CEES 24B0062004 ES 4C83C4 2083 RB 20EBE42 


OOFEBLBSO 
20080 DATAZOCAE SAI 4 08S 2B 20A9RBA7 00852 BA003H8 1 CEAGBS8BR1ICEE9O01 BOO1 CABS 
386346018 
20090 DATAASCE 65238561 ASCF 465348562 4600481CEZ0F 6D 1 SS5F 84606020E800C92 
CFOOS4CE4 
20100 DATACF4CE200A020020E800862785R420E8002084D 1 BOOS 2004EB4CE4CFAZO 
OB62884629 
29110 DATAZOE 2009005 2086D 1 9OOBAAZOE 2O0090F B2086D 1 BOF SC9I2Z4D0046A9FF ESE 
BDOOCC 92S 
20120 DATADOOFA9BO8S 2905 R485 R49A0980AASOE S008 6RHSAS69ERS9F BS6CEBSCFCSA 
1DOO4SE4AO 
20130 DATAFOLFAOQOOR1 CECB8CSBR4D0O06AS5KR5D 1 CEFOOECSRICE1S8465CEAACBBRICESSC 
F9OD7 3860 


20140 DATAZOO4ESASSA4CESC4 
20150 DATAZ 


#400 #40 #818 #C6 #EBS7 #C9 
#401 #4 #BB19 #E5 #838 #25 
#402 #E8 #ES1A #05 #39 #DO 
#403 #4C #B818 #54 #RBSA #F9 
#404 #20 #EB1C #20 #HOTB #20 
#405 #ES #E91D #06 #EBSC #350 
#ES1E #E5 #B82D HES 
#EB00 #25 #EB1F #20 #ERBSE #85 
#580 1 #39 #EB20 #85 #HO3F #55 
#EBOD #25 #821 #898 #R840 #20 
#HBOS #32 #EB22 #20 #H841 #50 
#BB04 #32 #BS2S #A7 #BR842 #ESG 
#ES0S5 #55 #EB24 #ES #845 #85 
#EBOS #20 #B825 #20 #RB44 #54 
#BS307 #9C #EB2S #4 #8945 #AO 
#ERBOB #E8 #ES27 #E8 #EB46 #2 
#EB09 #8 #R829 #28 #8847 #E1 
HEBOA #20 #EBL9 #40 #E848 #CE 
#HB0H8 #65 #EH82A #20 #HE49 #C5 
#EBOC #88 #EB2H #9C #EB4A #33 
#HB0D #20 #E82C #H8 #HO4H #C8 
#EBOE #BA #EB2D #8 #EB4C #E1 
#EBOF #ES #EBSE #20 #H84D #CE 
#RB10 #A9 #HG2F #63 #H84E #ES 
#BS11 25 HEB 3C #58 #HG4F #34 
#H812 #20 #HOS1 #20 #EBSO #EO 
#HQ15 #C6 #EB32 #96 #HO51 #6 
#8814 #ES #HES35 #E6 #EA52 #20 
#8915 #05 #EB24 #20 #HO5S #4 
#816 #55 #EB25 #30 
#RB17 #20 #BB36 #ESG 
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Features 


Program Listing 


#RES4 zi #BS9D 2 #EBES 
#355 ac #ES9E ‘ #BSE7 
#EB9F ; #ERBEB 
#EBAO 740} #B8E9 
#BSA1 é #BBEA 
#EBAL x4 HSER 
#BBAS #BBEC 
#EBA4 : #BRSED 
#EBAS ' #EBEE 
#EBAS 5 #BGEF 
#BRSA7 2 #EBFO 
F #RBAB e #BGF 1 
#860 E #RSA9 Az #BSF2 
#BS01 2g #RBAA : #BSFS 
HERBS? c #ERSBAR 2C #EIQF4 
#ABSS #2 #HRBAC = #EBFS 
#EG54 #E8AD #EBFS 
#8965 ‘ #BBAE 4 #BSF7 
#BB466 #RBAF BS #BSF8 
#B857 #BSEO 35 #HSF9 
#EGSE BE #BOR1 #EBFA 
HEBSD SE #ABBS 2 #RBFR 
#EBSA 3 #ROES E #EBFC 
#B34BR ¥¢ #HSR4 g #BR8FD 
#B86C : #BSB5 3 #REFE 
#B834D #BBRS 36 #B8FF 
#E86E a #ESR7 #E900 
#BGOSF 35 #EBBS A) #B9O1 
#BO7O POE #RORY é #EQO? 
#E87 1 ¢ #EBBRA 2C #E9O3 
#EB72 3 #ESHE #EQO4 
qBO7= ; #E@EC : #5905 
#B874 ; #BSED #E9OS 
#ES7S #BRERE = #B907 
#EE7S 36 #BQRF #E9O8 
#8877 #E8CO #E909 
#H8B73 #B8C1 #E90A 
#8879 #B8C2 #B90K 
#EB7A #B8C> : #E9OC 
#378 g #B8C4 #E90D 
#EB7C #BSC5 #EIOE 
#837D Th #EBC46 26 #BOOF 
#RO7E 5 #B8C7 5 HEG1O 
#HO7F 33 #B8C8 #E911 
#BBS0 #E8C9 : HEQ 1S 
#E8CA 7 #8915 
#BH8CH é #8914 
i #BECC Fl #RPLS 
#884 Agi #E8CD q HEDIS 
#8985 CE #BBCE Te #917 
#886 é #BBCF #918 
#B887 33 #E8D0 #BI19 
#RA88 #B8D1 p #EI1A 
#389 #E8D2 7 #BR91B 
HEBBA 5 #H8DS 9 HEQIC 
#B83E #E8D4 i #E91D 
#EG8C oS #E8D5 #E91E 
#B39D = #E8DS 20 #B91F 
#HS8E 3 #BS8D7 #E92ZO 
#B83F : #B8D8 
#EBIO AC #BES3D9 
#B89 1 #E8DA 
#B892 3 #H8DB 
#3893 C #E8DC 
HEBS4 ae #BSDD 
#E995 #EBDE 
#EBI6 #EG@DF 
#997 #85 #EBEO = HAO? 
#BOPS #BGE 1 HEQZA 
#EB99 #EBE2 #EOSE 
#EB9A a #BBES a #E92C 
#BB9R . #BSE4 #E92D 
#ES9C & #BSE5 #RODE 
#B92F 
#H930 
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This is an Oric version of the 
well known psychoanalysis pro- 
gram. It is designed to allow you 
to input sentences in normal 
everyday English and to formu- 
late suitable replies. It is a sim- 
ple artificial intelligence pro- 
gram which, for most of the 
time, can carry out a reasonably 
coherent conversion although it 
has a rather limited range of 
subjects. 


Its favourite subjects are 
friends, computers, and dreams. 
As with a real psychiatrist it will 
ask you lots of questions but 
never answer any! 


Lines 5 to 640 are the main 
processing part of the program. 
They take the users input and 
break it into Keywords which 
are compared with the data 
statements for a match. 


The appropriate answer will be 
picked from the list of replies 
and inversions of *You/Me’ ‘My/ 
Your’ etc. will be selected and 
placed in the correct part of the 
reply sentence. 

The program could be substan- 
tially lengthened to give more 
replies and more in-depth sen- 
tence parsing could be added. 
To get out of the program enter 
‘Shut-up’. 
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S REM ORIC ELIZA MARCH 83 : 
10 CLS: INK4: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT? 


2a PRINT" ELIZA":PRINT" +4+t+" 
ZO FORI=1T0S: PRINT: NEXT: WAIT200:CLS 
100 DIMS% (34) ,RZ036) ,NZ (34) 
110 N1=34:N2=14:N5=112 
120 FORX=1TONL4+N2+N3: READZ$: NEXT 
120 FORX=1TON1 
READS%(X) ,L2R%Z(X) =S% OX) 2NZ(X) =SZ 0X) +L 
NEXTX 
PRINT"HELLO,I AM ELIZA,CAN J HELP YOU?" 
REM : ; . 
PRINT: INFUTI¢: PRINT 
Ise" "+1s+" 
FORL=1TOLEN (I$) 
IFMID$(1$,L,1)="° "THENI$=LEFTS(1$,L-1) +RIGHTS (1$,LEN (I$) -L) GOT 
o 


IFL+4¢=LEN (1%) THENIFMID$ (1,1, 4) ="SHUT" THENPRINT" SHUT UP... "SEN 


O NEXTL 


IFIS=F4THENFRINT"PLEASE DON*T REFEAT YOURSELF !":GOTO170 


oO RESTORE ( 


OSS 
S58 
S70 


THEN360 

FORL=1TOLEN (1%) -LEN (ES) +1 

IFMID$ (1%, 1, LEN (ES) ) SKS THENS=E: T=L 2 FSHkS 
NEXTL 


0 NEXTE 


IFS +OTHENK=5:L=T:GOTOZ90 

Kk=36:GOTOS70 ’ 

REM 

RESTORE: FORX=1TON1: READZ$: NEXT 

C$ "+RIGHTS (1%,LEN(I%) -~LEN(FS)-L +i) +" " 
FORX=1TON2/2 

READSS, RS 

FORL=1TOLEN(C#) 

TFL+LEN (S#) 2LEN (CS) THENS1O 

IFMIDS (C$,L,LEN(S#) )< >SSTHENS1O 

CH=LEFTS (CS, L—-1) +RS+RIGHTS (C$, LEN (C$) -L-LEN (S$) +1) 
L=L+LEN (R#) : 
GOTOS40 

IFL+LEN (R$) LEN (C$) THENS40 

IFMID$ (C#,L, LEN (RS) ) < 2R#&THENS4O 


> CH=LEFTS(C$,1L~-1) +5$+RIGHTS (C$,LEN(C%$) -L—-LEN (RS) +1) 


L=L+LEN (S$) 

NEXTL 

NEXTX 

IFMID$(C$,2,1)=" “THENCS=RIGHTS (C$, LEN (CS) ~1) 

FORL=1TOLEN (CS) 
IFMID$(C$,L,1)="!"THENCS=LEFTS (C$,L-1) +RIGHTS (C#,LEN (C$) ~L) :GOT 
7 

NEXTL 

REM 


590 
600 
610 
620 
620 
640 


1050 
1060 


1070 
1080 
1090 
1100 


1220 


1410 
1420 
1450 


RESTORE: FORX=1 TON1+N2: READZ$: NEXT 
FORX=1TORZ (EK) : READFS: NEXT 
RY (EK) =RZ(K) +1: IFRZ (CK) ON% (EK) THENRY (K) =SZAE) 
IFRIGHT# (FS, 1) <>"e" THENPRINTFS: PS=1$: GOTO170 
PRINTLEFTS (F%,LEN*FS) —1) CS 
P$=1$:GOTO170 
DATA"CAN YOU", "CAN I", "YOU ARE"; "YOURE", "I DONT", "I FEEL" 
DATA"WHY DONT YOU", "WHY CANT I", "ARE YOU", "I CANT", "I AM", "IM 
DATA"YOU ","I WANT", "WHAT", HOW", "WHO", "WHERE", "WHEN", WHY" 
DATA"NAME", "CAUSE", "SORRY", "DREAM", "HELLO", “HI " "MAYBE" 
DATA" NO", "YOUR", "ALWAYS", "THINK", "ALIKE", "YES", "FRIEND" 
DATA"COMPUTER" , "NOKEYFOUND" 
DATA" ARE "," AM ", "WERE ","WwAS "," YOU “7 * YOUR * "Ry 
DATA" IVE "," YOUVE "," IM "," YOURE " 
DATA" ME "," !yOu " 
DATA"DON’T YOU BELTEVE THAT I CANK" 
DATA"PERHAPS YOU WOULD LIKE TO BE ABLE TOXx" 
DATA"YOU WANT ME TQ) BE ABLE TOX" 
DATA"PERHAFS YOU DON’T WANT TOX" 
DATA"DO YOU WANT TO BE ABLE TOx" 
DATA"WHAT MAKES YOU THINK I AMK" 
DATA"DGES IT PLEASE YOU TO BELIEVE I AM*" 
DATA"FERHAPS YOU WOULD LIKE TO BEx*" 
DATA"DO YOU SOMETIMES WISH YOU WERE" 
DATA"DON’? T YOU REALLY*", "WHY DON’T YOUX" 
DATA"DO YOU WISH TO BE ABLE TOx", "DOES THAT TROUBLE YOU?" 
DATA"TELL.-ME MORE ABOUT SUCH FEELINGS" 


1460 DATA"DO YOU OFTEN FEELX" 


DATA"DO YOU ENJOY FEELING*" 

DATA"DO YOU REALLY BELIEVE I DON* Tx" 
DATA"PERHAPS IN GOOD TIME I WILL*" 
DATA"DO YOU WANT ME TOx" . 
DATA"DO YOU THINK YOU SHOULD BE ABLE TOx" 
DATA"WHY CAN*T YOU" 


SO DATA"WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM&" 


DATA"WOULD YOU FREFER IF I WERE NOTX" 
DATA"FERHAPS IN YOUR FANTASIES I AM&" 
DATA"HGW DG YOU KNOW YOU CAN* TK" 
DATA"HAVE YOU TRIED" 

DATA"FERHAPS YOU CAN NOW" 

DATA"DID YOU COME TO ME BECAUSE YOU AREX*" 
DATA"HOW LONG HAVE YOU BEEN*" 


Oo DATA"DO YOU BELIEVE IT IS NORMAL TO BE#" 


DATA"DO YOU ENJOY BEING*” 

DATA"WE WERE DISCUSSING YOU..NOT ME", "OH,1*" 

DATA" YOURE NOT REALLY TALEING ABOUT ME,ARE YOU" 

DATA"WHAT WOULD IT MEAN TO YOU IF YOU GOT#", "WHY DO YOU WANT" 


}-DATA"SUFFOSE YOU SOON GOT", "WHAT IF YOU NEVER GOTK" 


DATA"I SOMETIMES ALSO WANT*", "WHY DO YOU ASK?" 
DATA"DOES THAT QUESTION INTEREST YOU" 


 DATA"WHAT ANSWER WOULD PLEASE YOU THE MOST","WHAT DO YOU THINK 


DATA"ARE SUCH QUESTIONS ON YOUR MIND. OFTEN" 
DATA"WHAT IS IT THAT YOU REALLY WANT TO KNOW" 
DATA"HAVE YOU ASKED ANYONE ELSE" 

DATA"HAVE YOU ASKED SUCH QUESTIONS BEFORE" 
DATA"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT" 
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1800 DATA"NAMES DON’T INTEREST ME" 
1810 DATA"I DON’T CARE ABOUT NAMES FLEASE GO ONOR 
“820 DATA"IS THAT THE REAL REASON" 
1830 DATA"DON’T ANY OTHER REASONS COME TO MIND" 
1840 DATA"DOES THAT REASON EXFLAIN ANYTHING ELSE" 
1850 DATA"WHAT OTHER REASONS MIGHT THERE BE" , 
1940 DATA"PLEASE DON’T AFPLOGIZE", "APOLOGIES ARE NOT NECESSARY" 
1880 DATA"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE","DON’T BE S 
O DEFENSIVE" 
1900 DATA"WHAT DOES THAT DREAM SUGGEST TO YOU","DO YOU DREAM OFTEN" 
1920 DATA"WHAT PEOPLE APPEAR IN YOUR DREAMS", "ARE YOU DISTURBED BY 
YOUR DREAMS 
1940 DATA"HOW DO YOU DO...PLEASE STATE YOUR FROBLEM" 
1950 DATA"YOU DON’T SEEM VERY CERTAIN", "WHY THE UNCERTAIN TONE" 
1970 DATA"CAN’T YOU BE MORE FOSITIVE", "YOU AREN*T SURE?", "DON’T YOU 
KNOW?" 
2000 DATA"ARE YOU SAYING NO JUST TO BE NEGATIVE", "YOU*RE BEING A BI 
T NEGATIVE" - 
2020 DATA"WHY NOT?", "ARE YOU SURE", "WHY NO?", "WHY ARE YOU CONCERNED 
ABOUT MYX" 
2060 DATA"WHAT ABOUT YOUR OWN*", "CAN YOU THINE OF A SPECIFIC EXAMPL 
E"' 
2080 DATA"WHEN?", "WHAT ARE YOU THINKING OF", "REALLY, ALWAYS?" 
2180 DATA"DO YOU REALLY THINK SO?", "BUT YOU°’RE NOT SURE YOUx" 
2130 DATA*DG YOU DOUBT YOUX", "IN WHAT WAY?", "WHAT RESEMBLANCE DO YO 
U SEE?" 
2160 DATA"WHAT DOES THE SIMILARITY SUGGEST TO You?" 
2170 DATA"WHAT OTHER CONNECTIONS DO YOU SEE?" 
2180 DATA"COULD THERE REALLY BE SOME CONNECTION?", "HOW?", "YOU SEEM 
QUITE SURE" — 
2210 DATA"ARE YOU SURE?","I SEE", "I UNDERSTAND" 
2240 DATA"WHY DO YOU MENTION YOUR FRIENDS?","DO YOUR FRIENDS WORRY 
. YOu?" . 
2260 DATA"DO YOUR FRIENDS FICK ON YOU?","ARE YOU SURE YOU HAVE ANY 
FRIENDS!" 
2280 DATA"DO YOU IMPOSE ON YOUR FRIENDS" 
2290 DATA"FERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU","DO COMPUTERS 
WORRY YOU?" 
22310 DATA"ARE YOU TALKING ABOUT ME PARTICULARLY", "ARE YOU SCARED OF 
MACHINES?” 
DATA"WHY DO YOU MENTION COMPUTERS?" 
DATA"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM" 
2350 DATA"DON*T YOU THINK COMPUTERS CAN HELP PEOPLE?" 
2360 DATA"WHAT IS IT ABOUT MACHINES THAT WORRIES you?" 
2370 DATA"SAY,DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" 
2380 DATA"WHAT DOES THAT SUGGEST TO YOU?","I SEE." 
2400 DATA"I*M NOT SURE I UNDERSTAND YOU FULLY" 
2410 DATA"COME,COME ELUCIDATE YOUR THOUGHTS", "CAN YOU ELABORATE ON 
THAT?" 
2430 DATA" THAT IS QUITE INTERESTING" 
2530 DATA1. 3545 256.456, 4,10, 4,14, 3,17, 3, 20, 2, 22,3, 25,3 
2540 DATA2Z8, 4, 28,4, 32, 3,35, 5,40,9,40,9,40,9,40,9,40,9,40,9 
2550 DATA49, 2,51,4,55,4,59,4, 63, 1,63, 1,64, 5,69, 55 745 25 76,4 
2560 DATA8O, 3, 83475904 34 934 Gy 99, 74106485 
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SOFTWARE 
from TANSOFT 


ORIC 
CHESS 


A superb chess game written in 


Basic with a Machine Code Move 


Search Routine. Features high 


resolution colour graphics, record of 


moves, allows Castling and 


En-Passant, 5 levels of play and 
computer can play black or white. 


ONLY £9.99 inc VAT 


48K only 


Please send me 


Oric-Chess at £9.99 
Zodiac at £9.99 


TOTAL 


Oric-Flight at £7.95 


Postage per cassette is 40p 


Quantity Total 


ZODIAC ad 


A 36K adventure game that will test 


your intelligence and patience for 


hours. Find the 12 hidden signs of 


the Zodiac to discover incredible 


treasures. Can you ward off the 
angry Yeti? What is the meaning of 


the radio that plays the ‘Archers’ 


over and over again (through your z 


loudspeaker!) ? 
Only £9.99 inc VAT 
48K only 


Name 
Address 


Please send me latest price list 


Please allow 28 days for delivery 


ORIC ape 
FLIGHT 


Can you fly your new 787 jet on to 
the runway without crashing, 
stalling or running out of fuel? 

Full digital instrument readout plus 
cockpit view of final runway 
approach. Superb graphics and 
sound. 

Only £7.95 inc VAT 

48K only 


All cheques payable to 
TANSOFT LTD 

3 CLUB MEWS 

ELY 

CAMBS 

CB7 4NW 

Tansoft is the software division of 
Tangerine Computers 


Software 


NARS 


J. eee & R. HALL 


This short program is useful for 
analysing the marks obtained by 
a class of students. Any number 
of marks may entered. The pro- 
gram sorts the marks into des- 
cending order, calculates the 
mean mark and the standard 
deviation then gives the number 
of marks in the upper quarter 
and the number of marks below 
40%. 


This is the sort of return that can 
be tiresome when large numbers 
of results have to be handled. A 
hard copy of the results is avail- 
able as an option. 


Lines 10-150. The screen is 
cleared and the total number of 
marks (N) is entered. 


When all are entered they are 
‘displayed ten at a time so that 


| a : 


=. 


Th 


q 


ik 


i 


f 
} 


they 
(1000-1500) 
necessary. This is achieved by 
typing the sequence number of 
the mark, comma, followed by 
the correct mark (mark). 


checked 
altered if 


can be 
and 


Lines 400-500. Mean and stan- 
dard deviation are calculated. 


Lines 510-630. A ‘bubble sort in 
operation’ message is displayed 


98 96 87 87 85 469 69 65 65 S23 45 45 


14 14 14 12 
MEAN VALUE = = 48.04 
STANDARD DEVIATION= 28.14 
UPPER QUARTILE 
98 96 87 87 85 69 


NUMBER WITH MARES BELOW 40%= 12 


whilst this operation is being 
carried out to explain the delay. 


Lines 700-830. The results are 
displayed (as shown in the print- 
out) and finally the option of 
hard copy is offered in line 650 
with a jump to 1500 if the answer 
if Y. 


The program is easily modified 
for other limits, i.e. 50% pass- 
mark or display the lower 
quarter. 


35 32 32 32 '25 25 23 2 
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SZ 4aUMC IUE 


HIMEM#2000:CLS: INK4: PAPER7 


PRINT: PRINTCHRS (4) " "“CHR$ (27) "J MARKS" 


PRINT: PRINT: PRINTCHRS (4)" By John Kirkman and Ray Hall" 


PRINT: PRINT: PRINT: PRINT 
PRINT"HOW MANY MARES IN SET"; 
INFUT N P 
DIM I(N+5):DIM D(N+S) 
FPRINT"ENTER EACH MARE FOLLOWED BY RETURN" 
PRINT: FORPF=1TON 
PRINTF" >"3s INPUT I 

ICP) =1 

NEXT F 

FOR R=1 TO N STEP 10 

X=R: Y=R+9 

GOSUB1IOOO 

IFNeY¥+1 THEN 400 

NEXT R 

FORF=1TON 

T=T+1(F) 

NEXT F 

M=T/N 

FORF=1 TON 

D(P)=1 (FP) -M 

S=5+D(P) xD (FP) 

NEXTP 

SD=SOR (S/N) 

M=INT (MK1004,.5) /100 

SD=INT (SDx100+.5) /100 

PRINT"BUBBLE SORT IN OFERATION..." 

Feo 

FOR J=1TON 

IFI (3) 2=1(34+1) THENS70O 

ZHlOI) sT (J =1CJ4+)) 21 (d+) =Z 
Fel 


> NEXT J 


IF FOTHEN S20 
FORG=1TON 
IFI(G) <4THEN620 
GOTO430 

Q=0+1 

NEXTG. 


» GOSUB7O0O 


PRINT"DO YOU WANT A PRINT-OUT" 
PRINT"ANSWER Y OR N"3 

INFUTAS 

IFAS="Y"THEN1500 ELSE 2000 


70a 
7190 
71S 
720 
730 
740 
750 
760 
772 
7380 
790 
8O0 
810 
B20 
R20 
i900 


1040 
1050 
1960 
1070 
1080 
1090 
1100 
1120 


1550 
1560 
1870 
1580 
1590 
1600 
1610 
1620 
1430 


2010 
2O20. 


eLs 

FORJ=1TON:PRINTI (J) 33 

NEXTJ:PRINT: PRINT 

PRINT"M*AN VALUE ="2M 

PRINT 

PRINT"STANDARD DEVIATION="3SD 

PRINT 

PRINT"UPPER QUARTILE" 

PRINT 

FORW=1TON/4 

PRINTI(W) 33 

NEXTW 

PRINT: PRINT 

PRINT"NUMBER WITH MARKS BELOW 40%="3@:PRINT 
RETURN 

CLs 

FORF=XTOY 

PRINTF, 1 (F) 

IF F=NTHENLOS¢ 

NEXT F 

PRINT 

PRINT"ARE THESE VALUES CORRECT" 
PRINT"ANSWER Y OR N's 

INFUTAS 

TFAS="N"THENL 120 

GOTO1150 

PRINT"'TYPE CORRECT VALUE AS ©,XY (RETURN) 
INPUTF, I (F) 

GOTOLOOoO 

RETURN 

LFRINTCHRS (12) :REM PRINTER FORM FEED 
FORJ=1TON:LPRINTI (J) 33 
NEXTI:LPRINT:LERINT 

LERINT'MEAN VALUE ="sM 

LERINT 

LFRINT" STANDARD DEVIATION="53 5D 
LPRINT 

LPRINT“UPPER QUARTILE” 

LPRINT 

FORW=1TON/4 

LPRINTI(W) 33 

NEXTW 

LERINT: LPRINT 

LPRINT"NUMBER WITH MARES BELOW 40%=":0:LFRINT 
PRINT:FRINT"FRESS Y TO RUN AGAIN":GETAS 
IFA$="Y" THENRUN 

PRINT: PRINT:PRINT"BYE BYE" 
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From Bits 


The Oric-1| is a digital computer. 
This means it is only able to 
distinguish two possible states, 
which may be thought of as 
yes/no, on/off, dot/dash, fore- 
ground/background, or 1/0. 
Each one of these single units of 
information is known as a ‘bit’. 
These bits are grouped together 
to form patterns rather like 
morse code, where, for example 
three dashes in a row are read as 
an O, while three dots in a row 
represent the letter S. By way of 
comparison the standard unit of 
information on digital comput- 
ers consists of a pattern eight bits 
long, which is known as a ‘byte’. 


For quite a while now England 
has used the decimal system 
(base 10) which utilises the ten 
arabic characters: 0123456789. 
Each time the tenth character 
has been reached, a carry is 
made to the next-left hand col- 
umn to indicate the number of 
bases passed, and the unit col- 
umn restarts again at 0. So for 
example 23 in decimal means 
2 X base 10 plus 3 units. In base, 
16 counting , known as ‘hexade- 
cimal’, 23 is still worth 2 x base 
plus 3 units, but in this case the 
base is decimal 16. As digital 
computers only have two cha- 
racters to play with (1 and 0), 
their base has the value of 2: this 
is known as ‘binary’. 


The left hand columns in all 
number bases represent the 
number of bases, or bases X 
bases passed. So in decimal we 
find: 


to Screen Attributes 


Base X Base X Base Base X Base Base Units 
1000 100 10 9-0) 


. . and similarly in 2-state counting (binary): 


Base X Base X Base Base X Base Base Units 
8 4 2 1-0 


The eight-bit pattern used by digital computers could just have easily 
been a 4, 12 or 16 bit unit. The length was standardised at 8 bits 
simply because that was most convenient at the time. However a 
major feature of the 8 bit unit is that it can represent 256 different 
conditions, whereas the single bit unit could only distinguish two (1 
and 0). The maximum value of an eight-bit binary number is 
11111111 where the columns to the left are worth the following in 
decimal: 


Unit = 
Base 2 
Base X Base 
Base X Base X Base 
Base X Base X Base X Base 
Base X Base X Base X Base X Base 
Base X Base X Base X Base X Base X Base 
Base X Base X Base X Base X Base X Base X Base = 


Total 


Right-most column 
next left 
2 to left 
3 to left 
4 to left 
5 to left 
6 to left 
7 to left 


Of course zero is also a number, so in total the eight-bit byte can be 
used to distinguish 256 different values or patterns. 
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Just like morse code, it is pos- 
sible to select patterns of eight 
bits to represent all the letters 
in the alphabet both upper and 
lower case with plenty of pat- 
terns left over for brackets, 
numbers, characters and so on. 
This computer equivalent of 
morse code is known as 
ADCII, in which for example 
the letter A has the code 
01000001, B is 01000010, C is 
01000011, and so on. In fact 
every single character on the 
Oric Keyboard can be given its 
own special binary code with 
just half the patterns possible 
using an eight-bit unit. If you 
look at the back of your Oric 
manual you will find the deci- 
mal equivalent codes for all of 
these characters, which range 
from 32 to 125, Here are some 
character codes with the deci- 
mal equivalents of their binary 
patterns: 


The Oric has a special function 
called CHR$ which allows you 
to PRINT or PLOT the deci- 
mal equivalent of a character’s 
binary code: so PRINT 
CHR$(65) prints an A just as 
before, as does PLOT 
X,Y,CHR$(65). With the 
POKE command you have to 
use the decimal equivalent 
whether you like it or not, but 
as this is the only option avail- 
able you don’t have to use the 
CHR$ function. The POKE 
command pokes your coded 
byte straight into the Oric’s 
memory, which may _ be 
thought of as 65535 separate 
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Binary 
Columns: 28 64 32 1 
1 


coca 
oof 
coocsh 


0 
0 
0 
1 
1 


21 
01 
10 
11 
01 
00 


coo 


ooo 
oo 


pigeon-holes, each with its own 
number or ‘address’, from 1 to 
65535. The pigeon-holes with 
addresses from 48000 to 49119 
are the ones that it uses to 
make up the screen display in 
TEXT mode. 


Characters can be placed on 
the screen using the PRINT, 
PLOT, or POKE commands. 
PRINT “A” places a letter A 
on the next line down, while 
PLOT X,Y, “A” positions an 
“A” X places across the screen 
and Y places down. 


A blank text screen basically 
consists of 28 lines of 40 blank- 
space characters (code 32): a 
total of 1120 characters in all, 
the first of which occurs at 
48000 to 49119. So the address 
of the pigeon-hole at the 
middle of the screen display is 
48000 and half of 1120, 1.e.: 
48560. If you POKE 48560, 65 
you will find a letter A (code 
65) appearing in the middle of 
your screen. If you then POKE 
48560, 32 the letter A will 
disappear again, as you will 
have replaced it by a blank 
space. 


Decimal Character 


65 A 

66 B 

67 Cc 

33 ! 

32 Blank space 


In fact a blank text screen in 
most instances will not be filled 
entirely with blank spaces, as 
most unusually the two vertical 
columns on the far-left of the 
screen will be filled with non- 
printing display attributes: 
typically these are the colour 
attributes for the PAPER and 
INK — more of these tater! 


As already mentioned, all the 
Oric’s characters can be coded 
using the decimal equivalent 
numbers from 32 to 127, which 
in binary is the range from 
00100000 to O1111111. Note 
that the left-most column 
(worth 128 in decimal) is 
always a zero: it is this column 
that the Oric uses to indicate 
whether or not the character 
should be printed normally, or 
inversely (i.e. with the back- 
ground/foreground — switched 
around). So if you change this 
column’s value to a 1 (i.e.: you 
add 128 to the decimal code of 
your character) then you will 
get the same character but it 
will be PRINTED, PLOT- 
TED, or POKED inversely. 
Try PRINT CHR$ (193), then: 
PLOT 19, 13, CHR$(194), 
then POKE 48560, 195. 
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How to get the most out of your OR 


Writing efficient 
programs 


In the last article we discussed 
variables and touched on arrays. 
From there, I will now give some 
details about using variables in 
the most efficient way. 


Efficient can mean three differ- 
ent things: 


| a fast program, 

2 a short program, 

3 an easy to understand pro- 
gram. 

You will not always be able to 

accomplish all three of these, 

but in the main will be most 

concerned with | and 2. The 

third criteria is very important 

when dealing with a program 

that will be updated regularly, or 

adapted by someone else. 


Usually, but not always, a short 
program will run faster than one 
which occupies a greater amount 
of memory space. Here is our 
first example, finding the num- 
ber of days in the month input. 
The easiest way is to use a 
numeric array, called M, which 
contains the number of days in 
each month. The data is READ 
from Data statements once only, 
and then it is a simple matter to 
find the number of days in any 
given month — we just ‘look-up’ 
the month in the table, by using 
the month value as a SUB- 
SCRIPT. 


10 DIM M (12) 
20 FOR A = I to 12 
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30 READ M(A) 

40 NEXT A 

50 INPUT “PLEASE ENTER 
A MONTH”; M 

60 PRINT “THERE ARE”; M; 
“DAYS IN. THAT 
MONTH” 

70 GO TO 50 


If we use this as an example — 
how can we: 


A make the program faster, 
B_ make the program use less 
memory. 


For point one, if speed is critical, 

we can: 

A_ remove all spaces, and where 
possible put several state- 
ments on one line (more on 
this later); 

B change the NEXT A to a 
NEXT — this can make a 
surprising difference! Only 
do this when it is obvious that 
the NEXT relates to the 
most recent FOR. 

Avoid the short-cut where 


the FOR/NEXT | includes 
such things as GOSUB, 
other FOR and REPEAT 
loops; 

C change all the constants to 
variables, 
SB 


B=1:C=12: FORA=B 
to C. 
This last point is only really 
going to be useful where you 
have a much repeated routine — 
the saving is minimal. 


Our date routine could be 
improved from the point of view 
of it using up less memory. 


Firstly, by removing spaces, and 
stringing together statements, 
you will save quite a lot of room. 


Secondly, looking at the array 
m(12), 60 bytes is being used to 
store the months’ data. 


Obviously if the application 
demanded an array of 1200 ele- 
ments, that 60 would go up to 
6000 bytes. 


These figures are derived from 
the fact that each element of a 
normal numeric array requires 5 
bytes — remembering that the 
data is stored as a floating-point 
number. (There is also a small 
overhead in any array of about 5 
bytes.) 


If, however, we use an 
INTEGER array, then we 
only use up 2 bytes per number 
stored. You have to remember 
that you can only keep whole 
numbers between —32768 and 
+32767 — but this is more than 
enough for dates! 


By using M%(12), we will save 
about 35 bytes — but, but, 
but . . . this saving will be offset 
by a reduction in speed! 


When BASIC uses INTEGERS 
it has to convert the things to 
floating point first — the same as 
it does with Constant values. 


So you have to weigh the two up. 
If you are storing AGES, and 
you want to keep as many as 
possible, use AGE%. If you are 
storing 20 bank balances, use a 
normal BALANCE variable. 


Using read and 
data 


Here is a question for you: 


Which one of these uses up the 
most memory?: 


1 A$=“FRED BLOGGS WAS 
HERE” 
2 A$=“FRED” + “BLOGGS” 


Surely, you say, the first one has 
more text — the line is actually 
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longer — so it must use up more 
memory? 

No. Because of the way that 
strings actually work is this: 


When you first create a string, 
be it a simple string like D$ or an 
array like D$(1,1), an item is set 
up, after your program, which 
identifies your string. This string 
i.d. points to an ADDRESS 
which contains your string of 
data. When you say LET 
A$=“fred” the computer will 
set up A$ with its address point- 
ing to The place within your 
program where FRED is speci- 
fied. 


This is also true of READ and 
DATA (which we are coming 
to), so that READ A$ and 
DATA FRED work as effi- 
ciently as A$=“FRED”. But 
when you alter string A$ in some 
way, as in the example where we 
add another string onto the end, 
our string has to be. totally 
rewritten somewhere else in 
your free memory. 


What this means is that your 
original “FRED” in 
A$=“FRED” is no longer of 
any use, as A$ now points to 
outside of your program where 
“FRED BLOGGS” has been 
transferred. 


I mention this to discourage too 
much use of string mucking 
about when memory is scarce. 


The purpose of READ and 
DATA is to set up values of 
variables and arrays without too 
much use of the assignment 
statement: LET A=54 etc. 


When READ x is encountered x 
is taken from the _first/next 
DATA statement. Both the 
READ and the DATA support 
many items on one program 
line, for instance: 


1000 READ A$,B,C(1),D% 
1010 DATA HELLO,3,4,-3 


In the case of A$, the string will 
be created pointing to the hello 
within the program — so using 
READ and DATA 1s NOT inef- 
ficient. Using numeric data is, 
however, very inefficient, and 
later on in this series of articles, 
we shall see ways of overcoming 
this. The problem is that once 
you READ your numeric vari- 
ables, the DATA statement is 
redundant. In the Zodiac 
Adventure Game many, many 
K are wasted because of this. 


Coming back to READ and 
DATA, here are some things 
you may not have realised: 


1 When READING, if you 
totally omit an item, that is 
have a statement like: 
DATA 102,3,,,,4 


you will read a value of zero, 
for a number, and NULL (a 
string of length zero) for a 
string. 

2 Quotes around string items 
are not necessary unless you 
want to include spaces and 
colons. 

3 As with all statements the last 
quote on any line is not vital — 
unless spaces are required at 
the end. 


Next issue: Logical conditions, 
AND, OR, TRUE, and 
FALSE. 
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What of the codes from O 
through to 31? These are used by 
the Oric in two different ways: 
when stored at one of the screen 
display addresses they form dis- 
play attributes, but when sent 
directly to the processor they act 
as control characters. Control 
characters were included in the 
ASCII code to allow for the 
control of printers and other 
external devices, for example to 
skip-a-line, back-space, ring-a- 
bell, and so on. The ASCII 
‘BELL’ control character has 
code 7 (binary 00000111), so the 
command PRINT CHR$(7) 
sounds Oric’s bell note — just like 
the BASIC command PING! 
This is also the case when you 
hold down the CTRL (control) 
Key and then press the capital 
G, because the CTRL Key has 


Decimal equivalent of binary code 


OANDKDNAWN KK © 
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ASCII letter ‘G’ = 01000111 binary pattern 
= 71 decimal equivalent 
or CHR$ (71) 


. . with CTRL pressed, two left-most bits become 
= 00000111 binary pattern 
= 7 decimal equivalent 
or CHR$ (7) = ASCII ‘BELL’ 


the effect of placing O’s in the 
two left-most columns of the 
following Key’s coded byte, and 
of sending that adjusted byte 
straight to the processor. 


However the ASCII code was 
developed long before colour 
computers like the Oric, so there 
are no code patterns specifically 
set aside for defining screen 
colours or other display attri- 
butes (e.g. flashing, etc.). This is 
why the Oric doubles-up the use 


of the control character set as 
display attributes. 


So if you send a control cha- 
racter specifically to the screen 
by using either the PLOT com- 
mand, or by POKEing the 
screen address range from 48000 
to 49119, then this control cha- 
racter will form a display attri- 
bute. The most common of these 
attributes (which are listed in the 
Oric manual’s appendix) are as 
follows: 


Attribute’s effect 


foreground black 
foreground red 
foreground green 
foreground yellow 
foreground blue 
foreground magenta 
foreground cyan 
foreground white 
single height, steady, standard characters 
single height, steady, alternative characters 
double height, steady, standard characters 
double height, steady, alternative characters 
single height, flashing, standard characters 
single height, flashing, alternative characters 
double height, flashing, standard characters 
double height, flashing, alternative characters 
background black 
background red 
background green 
background yellow 
background blue 
background magenta 
background cyan 


background white 
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A display attribute affects itself 
and everything to the right of 
it, which is why the colour 
attributes set generally by the 
PAPER and INK commands 
are placed in the two left-most 
columns of the screen display. 
However even with these set, it 
is quite in order to place addi- 
tional attributes anywhere on 
the screen to change the char- 
acter set, or to high-light selec- 
ted areas with flashing char- 


acters, or different colours. 
So PLOT 19,13,CHR$(1), 
followed by PLOT 


20,13,CHR$(65) will result in 
a red letter A in the centre 
of your screen. PLOT 
20,13,CHR$(2) will position a 
green foreground attribute to 
the right of the A, so that 
PLOT 22,13,CHR$(65) will 
position a second letter A, this 
time in green, two places to the 
left of the first red letter A. 


The PRINT and LPRINT com- 
mands normally interpret con- 
trol codes according to their 
original control functions. This 
is useful in many instances, as 
for example PRINT CHR$(12) 
clears the screen just like the 
BASIC command CLS; while 
(depending on the type of 
printer) LDPRINT CHR$(12) 
should instruct your printer to 
form-feed. These actions are 
equivalent to the direct com- 
mand resulting from holding 
down the CTRL Key and then 
pressing capital L. Another 
example is PRINT CHR$(4) 


Features 


‘HELLO’, which will result in 
double printing i.e.: there will 
be two lines of ‘HELLO’. 


All control functions work on 
the toggle principle, so if 
you've just tried the last exam- 
ple and are now wondering 
how to stop your Oric printing 
everything twice-over, the 
answer is either a second 
PRINT CHR$(4), or alterna- 
tively press the CTRL Key 
followed by capital D, (ASCII 
for D = 01000100 = 68 in 
decimal — after the CTRL Key 
has been pressed this is re- 
defined as 00000100 = 4 in 
decimal). 


To get full double-height cha- 
racters you will have to precede 
your double-line printing with 
the appropriate display attri- 
bute :CHR$(10) for example 
gives double height, steady, 
standard characters. This can 
be achieved simply by a later 
PLOT or POKE command that 
places the attribute’s code to 
the left of the printing. Alter- 
natively you can get the same 
effect from within the PRINT 
command, by using the escape 
character’s code in the PRINT 
statement, rather like the way 
you used the CTRL key to 
redefine the codes of capital 
letters. The escape character 
has the ASCII code 00011011, 
which is 27 in decimal. It may 
therefore be included in a 
PRINT statement as 
CHR$(27), and it will have the 


same effect on the letter fol- 
lowing it as the CTRL Key had 
in direct mode. 


So for example a capital A 
(code 01000000) following the 
escape character has its two 
left-most bits redefined as 0 
(i.e. OOO00000) and becomes 
CHR$(0) — which is the dis- 
play attribute for foreground 
black. And _ for example, 
PRINT CHR$(4); CHR$(27); 
‘O’;, ‘HELLO’; CHR$(4) 
should give you two lines of 
‘HELLO’ preceded by the 
attributes to make them into 
one line or double-height, 
flashing, standard characters 
(ASCII for ‘0° is OLOO1I10, 
which after the escape cha- 
racter CHR$(27) is redefined 
as QOO001110, which is equi- 
valent to decimal 14). 


This is all rather compli- 
cated, both to do in practice, 
and to explain in such a short 
article. However it means that 
the Oric’s PRINT command is 
very powerful, as it can operate 
both the full set of normal 
ASCII control codes, as well as 
the whole of its own special set 
of display attributes. Durell 
Software have produced a cas- 
sette tape ‘Lunar Lander & 
Asteroids’ specifically to illus- 
trate the use of these display 
attributes, and in my opinion 
seeing how they have been 
used in a program is the quick- 
est and easiest way of learning 
to do it for yourself. 
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ORIC-SOFT WARE 


LUNAR LANDER and ASTEROIDS 
ONE TAPE/TWO ACTION-PACKED GAMES WITH HIGH 
RESOLUTION COLOUR AND SOUND 


PLUS Fully explained program listings - 
games then learn the tricks of the trade! 


Enjoy the 


£6.95 


ASSEMBLER and ASSEMBLER‘S 
NOTE-PAD. 


Auto line-numbering; up to 6 character labels; hex or 
decimal numbers with simple arithmetic on operands; full 
syntax checking with error reports; two parse assembler 
maintains and updates list file; comprehensive documen- 
tation AND A4 size pad specially laid-out for clear and 
rapid assembler programming. 

£8.95 


(Pads available separately £1.30 inc. p&p) 


DURELL SOFTWARE 
HIGHER COMBE - COMBE FLOREY 
TAUNTON - SOM TA4 3JF 


@ Three invader types 
@ Written in machine code 
@ Mystery scoring mother ships 
@ Bonus bases every 2000 points 
@ Highscore register @ Full sound effects and colour 


You must defend earth from the hordes of bomb dropping space 
invaders, using your earth bound laser base. The more invaders you 
hit, the faster they come - leading to a gun-blazing shoot-out as finale 

A great shoot-’em-up, all action arcade game, for 


the 16K or 48K ORIC-1 or unexpanded VIC-20. 
ia Send cheque or P.O. for £5.50 (postage paid) 
stating computer type and memory size to 


p= ie 
fak ome 


FREEPOST, SWANSEA, SA3 4ZZ 
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ORIC-1 
SOFTWARE 


Buy from an ORIC user. All software designed 
and developed for the ORIC-1 


Author of this months PONTOON program 
Save on time and trouble - 
tape of PONTOON plus HORSE RACE 
£3.00 inc p&p 


Also now available Mastermind, Wordprocessor, 
Household Fuel Calculator, Golf etc. 
s.a.e. for details 


Williams 


1, Dunblane Close, Garswood, 
Ashton-in-Makerfield WN4 0SH 


For the 16K or 48K 


ORIC-1k 
So fast, itll 
take your 


breath away! a 


only [£5.50] ‘ 


@ Written entirely 
in MACHINE CODE 
@ Over 50 skill levels 
@ Random scoring spiders 
@ One or Two Player Option 
@ Hall of Fame @ Full colour and sound 
@ Bonus lives every 12000 points @ Deadly PACPERSON attacks 


zw», Blast the fast moving centipede, as it snakes down towards 
you, in the depths of the green forest. Score points by 
f shooting-up mushrooms and the deadly spiders. But beware 

i of the hungry PACPERSON, which will gobble anything in 
(—. its path. The higher your score rises, the faster the action 
becomes, until it is only a screaming blur of colour and sound. 

Sys Send cheque or P.O. for £5.50 (postage paid) 
stating computer type and memory size to 


FREEPOST, SWANSEA, SA3 42Z 


BEWARE OF THE 
ISSDPOLODD 
oaoa 


TS 3D POL 


= 


DON'T BE 
a FRIGHTENED 


i MEANWHILE. 
VIN THE LALROF 
y LSSOPOL 


SO THE ORIC HOUND HAS 
FOUND ANOTHER 
SEEKER OF 
THE TALENT / 


LITTLE DO THEY 
PYF REALISE THAT | 

{my ORLCAL® SENSE 
\\ \ TELLS ME WHERE 
THEY ARE 


GUIDE THROUGH 
THESE CATACOMBS 


=~ 
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French Flashcards 


By David P. Leworthy 


BOY 


FROMAGE 


This simple program can be used in the classroom or at 
home to make the arduous task of learning French 
vocabulary a little more fun. 


The program will flash up French or English words and 
the user must supply the appropriate translation. He has 
the choice of three speeds of display and a running total 
is kept. 


A full breakdown of the program is supplied at the end 
of the listing. 
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CLS: INK7: PAFER4 

DIMES (25) ,F$(25) 

HIRES 

CURSET40, 40,3 

N$="English French Flashcards" 
FORA=1 TOLEN (N#) 

CHARASC (MIDS (N$,A,1)),0,1 
CURMOVS,5,0 

NEXTA 

GOSUB1300 

PRINT"ORIC VERSION" 
PRINTCHRS(96)" 1983, D.FP.Leworthy"” 
WAITSOO 


O PRINT: PRINT 


INK4:PAPERS6: INFUT"Do you need instructions ty/n) "SAS 
IF (LEFT$ (A$, 1)="N") GOTO1S0O 
TEXT:CLS :PRINT: PRINT" INSTRUCTIONS" 


PRINT: PRINT: PRINT"The program will show you a French or" 


PRINT“English word for a few seconds" 


> PRINTZFPRINT"You then give the correct translation” 


PRINT: FRINT"You may see my word list" 


> PRINT: PRINT"If you want to change the words" 
¢ PRINT"LIST the program and change the data " 


PRINT"statements from line 1360 onwards" 
PRINT: PRINT 

INFUT"Do you understand ":A% 

IF (LEFT$ (At, i1)="N")GOTO140 

FORI=17T025 

READ F#(1) ,ES(1> 

NEXT 

RESTORE 

TEXT 

CLS 

INFUT"Do you want to see my wordlist":;Wt 
IF (LEFT$ (WS, 1)="N") GOTO230 

IF (LEFT# (WS, 1)<« ¥")GOTO210 

GOSUBS0o 

CLS 

INFUT"French or English Card displayed";A% 
GOSUB1000 

PRINT: PRINT: FRINT 

INFUT"Slow,Medium or Fast display of card 2"3SS 
GOSUB400 

WAIT100: INK7:FAFERO:CLS 

GOSUB 600 

GOSUBS00 

GOSUB1200 

CLS: FRINT: PRINT: PRINT"GOODBYE FOR NOW 
END 


IF (LEFT$(S#,1)="S") THEN X=60) 
IF (LEFT$(S#,1)="M") THEN X=20 
IF (LEFT#(S$,1)="F") THEN X=10 
RETURN 

REM DISPLAY WORD LIST 
FORC=1T025 

PRINTCHRS$ (12) 
PRINTCHR$ (4) ;CHR$(27)3"JEnglish: "s;E#(C) 3" French: 
PRINTCHRS (4) 

WAIT300 

CLES 

NEXTC 

RETURN 

IFP=2THEN700 

W=0 

cLs 

FORF=1T025 

FRINTCHRS (12) 


S PRINTCHR$ (4) 3 CHR$ (27): "J"3FS(F) 


FRINTCHRS (4) 

GOSUB1950 

INFUT"translates to the English :":C% 
IF C$=E$(F) THENS7S 

PRINT 


S PRINT" INCORRECT": FRINY 


GOSUB 8506 

NEXT F 

RETURN 

W=W+1 

PRINT: FRINT"CORRECT": 
PRINT 

GOSUBESO 

GOTO665 

W=9 

CLS 

FOR F=1 TO 25 
FPRINTCHRS (12) 
PRINTCHRS$ (4) sCHRS (27): "J" ;ES(F) 


S PRINTCHRS (4) 


GOSUB1050 

INFUT"transiates to the French :":C#& 
IF C$=F%(F) THEN770 

PRINT 

PRINT" Incorrect ":PRINT 


3 GOSUB 850 


NEXTF 

RETURN 

W=W+1 

PRINT: FRINT"Correct" 

FRINT 

GOSUBR 850 

GOTO0760 

CLS:PRINT"Your score is " correct out of 25" 
PRINT:PRINT:FRINT"that is ";Wk4:"% correct" 
RETURN ~ 
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820 CLS:PRINT"Your score is "3W;" correct out of 25" 2010 REM LINES10-80 TITLE 
830 PRINT:FRINT:PRINT"that is "3;Wk4;"% correct" 2015 REM 
840 RETURN 2020 REM LINE 85 INITIATES FRENCH NATIONAL ANTHEM 
850 FRINT"French :"3F8(F)3"= English :";ES(F) 2025 REM 
860 PRINT 2030 REM LINES115-175 INSTRUCTIONS 
870 PRINT"Hit any key to continue" 2035 REM 
880 GETFS ~2040 REMLINES190-19SREADING DATA STATEMENTS-— FRENCH F4#(1),ENGLISH E 
B90 CLS $¢(1) 
910 RETURN 2045 REM 
1000 REM SET UP ENGLISH OR FRENCH CARDS 2050 REMLINE2S3SCHOOSE FRENCH OR ENGLISH FLASH!!! 
1005 IF (LEFT$(A$,1)="E") THEN L$=" ENGLISH" 2055 REM 
1010 IF (LEFT (A$, 1)="F") THENL$="" FRENCH” 2060 REMLINE 250 SFEED OF DISFLAY 
1015 IF (LEFT$(A$,1)<>"F") AND (LEFTS$ (AS, 1)<>"E")GOTO23S 2065 REM 
1020. IF (LEFT$ (A$, 1)="E") THENP=2 2070 REMLINE 270 SHOW CARDS 
1025 IF (LEFT$(A$,1)="F") THENF=1 2075 REM 
1930 RETURN 2080 REMLINE275 GET SCORE 
WAITX:CLS:RET*RN 2085 REM 
REM FLAY AGAIN 2090 REMLINE280 ANOTHER GAME 
PRINT: PRINT: PRINT: PRINT 2095 REM 
INFUT"Do you want to try again";AS 2100 REM&*K**kSUBROUTINESS*E* 
IF (LEFT# (AS, 1)="Y¥") GOTO230 2105 REM 
RETURN 2110 REM..400-430 CONVERT S,M,F TO TIME 
REM NATIONAL ANTHEM OF FRANCE 2115 REM 


FORN=1T018 2120 REM..500-SS5 DISPLAY WORDLIST 

READA, B ; 2125 REM 

MUSIC2,A,B,9 2130 REM..605-670 FRENCH CARD/ENGLISH ANSWER 
FPLAYS,9,7,6000 2135 REM 


WAIT40 2140 REM..475-685 SCORING FOR 505-670 
FLAYO,0,0,0 2145 FEM 
NEXTN 2150 REM..700-765 ENGLISH CARD/FRENCH ANSWER 
RETURN 2155 REM 
DATA4, 3,4.3.4,3.,4,8,4,8,4,10,4,10,5,3,4,12,4,8,4,8,4,12,4,8,4, 2160 REM..779-790 SCORING FOR 700-765 
2165 REM 
1355 DATA4,10,4,7,4,8 2170 REM..800-820 PRINT FINAL SCORE 
1360 REM ALTERNATE FRENCH AND ENGLISH WORDS FOLLOW IN DATA STATEME 2175 REM 
NTS 2180 REM..850-910 FRINT CORRECT ANSWER 
1365 REM 25 FRENCH AND 25 ENGLISH 2 REM 
370 DATA"JAMBE", "LEG", "PROCHAIN", "NEXT", “CANETON", "DUCKLING", “RUE" 2190 REM. .1000-1030SET UF FOR FRENCH OR ENGLISH CARDS 
. "STREET" S REM 
1375 DATA"ICI", "HERE", “FAIM", "HUNGER", "LIVRE", "BOOK", "CENT", "HUNDRE O REM..1050 WAIT ROUTINE 
D" REM 
1380 DATA"CHIEN", "DOG", "FROMAGE", "CHEESE", "VIN", "WINE", “LOUP", "WOLF : O REM..1210-1240 TRY AGAIN? 
» 2 REM 
1385 DATA"FILLE", "GIRL", "GARCON", "BOY", "CHEVAL", "HORSE", "MAISON", "H 220 REM..1300-1340 FRENCH ANTHEM? 
OME" c REM 
1390 DATA"MIEL", "HONEY", "DENT", "TOOTH", "CLOCHE", "BELL", "FLEUR", "FLO REM. .1350-1400 DATA STATEMENTS 
WER" Z O REM 
1395 DATA"CERISE", "CHERRY", "ENFANT", "CHILD", "LAIT", "MILK", "CHAISE", 2 REMARK AKA AEE KEE 
"CHAIR" 2250 REM 
1400 DATA"“HORLOGE", "CLOCK", "ARBRE", "TREE" 22 REM ..IMPROVEMENTS.... 
1990 REMAXKKX KAKA KR RKRRREK ER AER KR EKE 2260 REM..INCLUDE LE/LA 
2000 REM EXPLANATION OF PROGRAM 22 REM 
ZOOS REMAX RARE 270 REM..EASY TO MAKE GERMAN/ITALIAN MODIFYING FROGRA 


oTBMAJOS 
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This program is designed to 
emulate logic circuitry and after 
entering the required informa- 
tion will analyse and print the 
results. At any time the operator 
can delete or add to the circuit. 


Up to 20 GATES (AND, 
NAND OR, NOR, XOR, 
XNOR OR INVERTERS) with 
up to 8 INPUTS can be entered 
with the program in its present 
state. Open collecter devices 
with outputs ANDED together 
are not catered for, but can be 
simulated with an AND gate 
where the outputs are connected 
together. 


A facility is also incorporated to 
save and to load a circuit for 
future reference. 


Please refer to the example cir- 
cuit of a FULL ADDER to un- 
derstand the operation of enter- 
ing the required information. 
After a little practice a circuit 
can be entered in a very short 
time. 


The method of entering a circuit 
is very easy. When the program 
is RUN a list of options is 
printed. The first thing to do is 
enter 1 fora NEW CIRCUIT. 


After a short delay the screen is 
cleared and the prompt ENTER 


Software 


Cask 
LABEL is printed on the screen, 
in reply type 1 and Return. 


TYPE OF GATE is now printed 
on the screen, relay with AND 
and Return. 


ENTER OUTPUT CONNEC- 
TION is now printed on the 
screen, reply with 3 and Return. 


ENTER INPUT CONNEC- 
TION is now printed on the 
screen, reply with | and Return. 


ENTER INPUT CONNEC- 
TION is now printed on the 
screen, reply with 2 and Return. 


ENTER INPUT CONNEC- 
TION is now printed on the 
screen, but this time we want to 
enter another gate so type 0 and 
Return and the reply will be 
ENTER LABEL. Then carry on 
with gate 2. The entered circuit 
is as follows. The / represents 
Return. 


1/AND/3/1/2/0/2/XOR/4/2/1/0/3/ 
AND/6/4/5/0/4/XOR/8/4/5/0/5/ 
OR/7/3/6/0/0/ 


Notice the extra zero at the end 
of the information, this is to 
inform the program that all the 
gates were entered. On receiv- 


ing this the computer will return 
to the list of commands ready for 
the operator to enter the known 
conditions. 


The operator will then enter 5 to 
input conditions, only known 
conditions are entered using the 
example circuit’s truth table. It 
will be seen that only INPUTS 
A, B and CARRY are used. 


Type 5 and Return. The com- 
puter will respond with: 


TYPE 0 TO TERMINATE. 


ENTER CONNECTION NO? 
Reply with | and Return. 


ENTER CONDITION? Reply 
with 0 and Return. 


ENTER CONNECTION NO? 
Reply with 2 and Return. 


ENTER CONDITION? Reply 
with | and Return. 


ENTER CONNECTION NO? 
Reply with 5 and Return. 


ENTER CONDITION? Reply 
with 0 and Return. 


ENTER CONNECTION NO? 
Reply with 0 to terminate. 
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A condensed version of this will 
be (/ indicates RETURN) 5/1/0/ 
2/1/5/0/0/. 


The computer will then analyse 
the circuit with the entered con- 
ditions. A message is displayed 
while this is being done. On 
completion the screen is cleared 
and a list of all the connections 
with the expected conditions will 
be printed, followed by an invi- 
tation to press the space bar 
when ready. When all the.condi- 
tions have been displayed the 
program returns to the menu. 


The operator can then enter new 
conditions and repeat the opera- 
tion as many times as desired. 


The operator can also add to the 
circuit or delete from the circuit. 
To change a gate, first delete the 
label then enter the new gate 
and connections. The circuit can 
also be listed with the label at 
left, then type of gate followed 
by connection numbers. 


If the operator comes out of the 
program, i.e. by pressing Return 
without entering any data, nor- 
mal operation can be resumed 
with GOTO 20, without loss of 
any entered information. 


Many error traps have been 
incorporated into the program to 
make it user friendly, and an 
audible beep is generated to 
draw attention to the fact that an 
error has been made, followed 
by a message to indicate the 
nature of the error. 


Most of the program is easy to 
follow, and there are REMS in 
many places to indicate each 
section. The circuit is held in 
array A and logic conditions in 
array B. If the user wishes to 
change the number of gates or 
inputs then variables X and S 
should be changed in line 10. S 
is = to | for label + 1 for gate 
+1 for output + number of 
inputs which in this program is 8, 
total 11. X = S times 20 (no. of 


gates), so X = 220. The rest of 
the program will act on these 
two variables and nothing else 
requires changing. 


The circuit is saved in a data file 
and is speeded up by first string- 
ing the array before saving, then 
when the circuit is reloaded the 
string is re-assembled into the 
array. 


The analysis makes three passes 
to allow for feedback (errors in 
the order of labels). Almost 7K 
is required to run the program. I 
could go on to give an explana- 
tion of how the rest of the 
program works but I don’t think 
it is really needed. If it is 
required then I shall send one at 
your request. 


I have found that this program is 
a useful teaching and learning 
aid in the use of logic gates. It is 
also handy for testing a circuit 
before actually constructing it. 


THE FULL ADDER CIRCUIT 


Used as the example in program. 


CARRY 
OUT 


TRUTH TABLE 

A B CARRY IN CARRY OUT SUM 

Y) V1) 1) 1) 4) 

B 1 ® 1) 1 8 

J : 
: 3 : CARRY SUM 

1 1 Y) 1 9g IN 

g BD 1 1) 1 

@ 1 1 1 g 

1 1) 1 1 o 

1 1 1 1 1 Note that the numbers are connection numbers, not pin numbers. 
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5 HIMEM#97FF: INK 2: PAPERO: CLS: GOSUB20000 


10 
20 
30 
40 


So 


N=O:X=220:S5=11:DIM A(X), R(X), ZZ%(X) 
CLS 
PRINT"ENTER..":PRINT 
PRINT" 1)NEW CIRCUIT." , 
PRINT"2) ADD TO CIRCUIT." 
FPRINT"3) DELETE FROM CIRCUIT." 
PRINT"4)QUTFUT CIRCUIT TO VDU." 
PRINT"S) INFUT CONDITIONS." 
PRINT"S)OQUTFUT CONDITIONS TO VDU." 
PRINT"7) ANALYSE CIRCUIT." 
PRINT"8)SAVE CIRCUIT TO TAFE." 
RINT'9) LOAD CIRCUIT FROM TAFE." 
PRINT: FRINT" REPLY GETB:FRINTB 
ON BF GOTO 160,170, 480,550, 700, 780,860,1190, 1210 
GOSUB2100: GOTO20 
IFN=1 THENGOSUB2060: IFAS="N" THEN2O 
GOSUB2Z000:N=1:REM CLEAR ARRAY & SET N FLAG 
CLS: IFN=1THEN200 
CLS:PRINT"ARRAYS HAVE NOT BEEN CLEARED":FRINT" TYPE 1 FOR NEW CI 


RCUIT." 


GOSUB2050: GOTO20: REM BEEF, DELAY 


F=O:FORA=1TOXSTEFS: IFA(A) =255THENF=1 

NEXTA: IF F=OTHENFRINT"ARRAY IS FULL":GOSUB2100: GOSUB2Z050: GOTO20 
PRINT"ENTER LABEL. "5 

INFUTE: IFR=20THENFRINT' TOO HIGH": GOSUB2100: GOTO2Z20 
F=O:FOR C=1TOXSTEFS 

IFA(C) =BTHENF=1 

NEXTC 

IFF=1THENPRINT" THAT LABEL HAS BEEN USED": GOSUB2100:GOTO220 
IF THEN20 

A=BxS-10:A(A) =B: B=0 

INFUT" TYPE OF GATE"; AS 

IFAS="AND" THENB=1 

IFA$="OR" THENB=S 

IFAS="INV" THENB=9 

IFAS="NAND" THENE=15 

IFA$="NOR" THENB=17 

IFA$="XOR" THENB=21 

IFA$="XNOR" THENB=25 

IFB=OTHENGOSUB2100: GOTOS00 

A(A+1)=B:C=2 

INFUT"ENTER OUTPUT IDENTIFIER"; ACA+C) 

c=C+1 

INPUT"ENTER INPUT IDENTIFIER";B 


IFB« 1 THEN4SSO 

A(A+C) =B 

C=C+1: IFC STHEN4S 20 

GOTO200 

REM DELETE A LABEL 

CLS:FPRINT: IFN=OTHENIS0O 

INPUT"ENTER LABEL TO DELETE.";B 

IFB« 1 THEN20 

FORA=1TOXSTEFS 

IFA (A) =BTHENS40 

NEXTA:PRINT"NO SUCH LABEL": GOSUB2OS50: GOTO2ZO 

REM SET LOOF TO ERASE 

FORC#=0OTO10:A(AtC 255: (A+C) =255: NEXTC 

REM FRINT CIRCUIT 

CLS: IFN=OTHENIS0 

AS="AND OR INV NANDNOR XOR XNOR":F=1:FORA=1TOXSTEFS: TH=0 

IFA (A) =2550RN=OTHEN6SO 

IFA(A) = 1OTHENTR=1:REM SET TAB 

PRINTSFC (TH) SACA) 5" "MID#H (AS, (ACAt1)) 475 

FORB=A+2TOA+S-1:REM SET INNER LOOF 

TFA (CB) #255 THEN640 

IFA(B)<1OTHENFRINT" "5 

PRINTACE) ; 

NEXTH:F=F+1:FPRINT: IFF=16THENOSUB6SS 

NEXTA: IFF *1 THENGOSUBR6465 

F=0:GOTO20 

REM SCREEN HANDLING SUBROUTINE 

DOKE#H#12, 49080 

PORE#268, 27: FOKE#269,0:FRINT" PRESS SPACE BAR TO CONTINUE" ;: 
GETH$:F=1 

CLS: RETURN 

REM INFUT CONDITIONS 

CLS: IFN=OTHEN180 

PRINT'TYPE *0° TO TERMINATE. ":FRINT 

INFUT"ENTER CONNECTION NO. "35 

IFR=00RB:X /STHENS460 

INFUT"ENTER CONDITION";C 

IFC<OORC?1THENFRINT"ONLY LOGIC 1 OR © PLEASE. ": GOSUB2100:GOTO74 


B(B)=C: GOTO720 

REM OUTFUT CONDITIONS 
CLS: IFN=OTHEN180 
F=1:TR=0 

FORA=1TOX 

IFB(A) =255THEN8SO 
FPRINTA, B(A) :F=F+1 
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B30 
840 
850 
855 
B60 
870 
886 
B90 
900 
910 


“920 


930 
94O 
950 
FSO 
970 
980 
990 
1900 
1010 
1020 
1025 
1030 
1040 
1050 
1060 
1070 
1080 
1085 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1155 
1160 
1170 
1180 
1185 
1190 
Qo 
1200 
1230 
1250 
1270 
1286 
1290 
1300 


IF F=16THENTB=TR+7:F=1 
IF TB=28THENGOSUB&70 
NEXTA: GOSUB670:F=0:T 
REM ANALYSE CIRCUIT 
IFN=0THENI80O 
CLS:PLOT12,12, "ANALYSING CIRCUIT" 
FORZ=1T03: FORA=1 TOXSTEFS: IFA(A) =255THEN1O20 

IFA (A+1) =10RA (A+1) =13THENS40 

IFA (A+1) =SORA (A+1) =17THENLOS0 

IFA(A+1) =210RA(A+t1) =S5THENIO9O 

IFA (A+1) =9THEN1I 1460 
GOTO1O20 
F=0: FORA1=A+3TOA+S—-2:REM AND NAND 

IFA (A1+1) =2550RF=1THEND7O 
C=EB(A(A1) )ANDB(AC(A1L+1)) 2 IFC=OTHENF=1 
NEXTAL 

IFA (A+1)=1THENIO10 

IFC=1THENC=0: GOTO1010 

C=1 

B(ACAt2) ) =C 

NEXTA, Z: GOTO780 

REM OR NOR 

F=0: FORA1=A+3TOA+S—2 

IFA (A141) =2550RF=1THEN1O60 

C=B(A(A1) ORBCACAL+1)) 2 IFC=1 THENF=1 

NEXTAL 

IFA (A+1)=STHENIO10 

GOTO990 

REM XOR XNOR 

F=0: FORAL=A+3TOAtS-2 

IFA(A1+1) =2550RF=1THEN1 130 

IF B(A(A1) )=B(A(A1+1) ) THENC=0: GOTO1130 

C=1:F=1:REM SET DEFAULT FLAG 

NEXT Al 

IFA (A+1)=21THEN1O10 

GOTO990 

REM INV 

IFB(ACA+3) )=1THENB (A (At2) )=0:GOTO1O2Z0 

BCACAt2) )=1 

GOTO1020 

REM SAVE TO TAPE 

CLS: IFN=OTHENPRINT" THERE IS NOTHING TO SAVE.":GOSUB20S50:GOT013 


2: GOTOZ0 


PRINT"READY TAPE RECORDER. " 

PRINT:PRINT"PRESS SFACE TO START", :GETCS 

POKE#47,0:REM SET FAST SPEED 

FORA=1TOXSTEPS: AS="" 

FORA1=0TOS-1 — 

AS=A$+STRS(A(AtAL) ) +" NEXTA1:REM STRING TOGETHER 

ZZ% (A) =A%: NEXTA: CALL1024, ZZ$:PRINT"CIRCUIT SAVED. ":GOSUB2050:6 


OTO26 


REM LOAD FROM TAPE 

CLS: GOSUB2O 

FRINT"READY TAPE":PRINT"FPRESS SFACE TO START LOADING":GET C% 
POKE#S7,0:REM SET FAST 

PRINT"LOADING":CALL1027, 72% 


; PRINT: PRINT"RE-CREATING ARRAYS" 


FORA=1TOXSTEFS 


3 AS=ZTZE(A) 2 G=1lsH=1:E=1:A1=0 


1400 
1410 
1420 
1999 


2070 


c 


> CLS:PRINTs PRINT: PRINT" 
FORA=1TOX:A(A)=255: BA 
GOSUBZ100: WAIT100: RETURN 
PRINTCHRS (12) "YOU HAVE ASKED FOR A NEW CIRCUIT": FRINT"IS THIS 

CORRECT"; : 

PRINT"ENTER Y/N AND PRESS RETURN. ":GOSUB2100: INFUTA$: RETURN 


2100 DATACF4CESO0A 


IFMIDS (AS,H, 1) "+" THENH=H+1:6=E+1:GOTO1380 
QO$=M1D$ (AS.G,E-1) 2A (A+A1) =VAL (RIGHTS (00%, LEN (O0$)-1)):A1=A1L+1 


TFA1L?S-1THENI420 

H=H+1:G=H:E=1: GOTO1380 

NEXTA: GOTO20 

END 

SETTING UF ARRAYS." 
Si NEXT: RETURN 


tRAY SAVER 
3: READDS 
INT: PRINT: PRINT: PRINT: PRINTCHRS (4) " 
»"JLOGIC"CHRS (4) 
PRINT:PRINT:PRINT:PRINT:PRINT"Please Wait...." 
FORI=1TOLEN(D$) STEF2 
V=VAL ("#"4MID$ (DS, 1, 2)) :POREA, Vi ASA+1: NEXT 


#4CBS: DOKE#404, #B82 
CRBOB 2062 R98 20BAE SAI 25 20C46ESASS3: 


:RETURN 
2OCSESASI42 


SPO004ES2860209CEB08 2063B8209 6ES2030ESC925D0F 92030E 


9070 DATAE 68534 Q002B1 CECS33C8B 1 CEES 348004 2004E84C83C42083B820EBE42 
M4EB2B60 


DATASOCAE 6494085 2B20A9H8A7V0852BA00SB1 CEAASSB1CEE901 BOO 1CABSS 


54 ASCP 46S348562A004B1 CE 20F 6D 1 8SSFB4606020E800092 


DATAASCESS 
ACE4 
20E 8008627 S5B4 20E 8002086D 1 HO06 2004ES4CE4CFAZO 


086288629 


M4EBAL2A4CSSC4 
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The game needs very little explana- 
tion, most people are familiar with 
Pontoon as a card game. This parti- 
cular program demonstrates the excel- 
lent graphic and colour capabilities 
available on the Oric, when in HIRES 
mode. 


The program is totally BASIC and uses 
approximately 5.2K Bytes of memory. 
The main control area is between lines 
30 and 210. This section of the program 
checks for pontoon, current total no 
greater than 21 (i.e. bust), controls 
screen position for display of cards and 
checks all critical variables. Assuming 
conditions are correct, it will direct the 
program to various locations between 
lines 1000 and 6070. This area is made 
up totally of sub-routines to generate 
card, display card, display patterns, 
calculate new totals etc. The final 
portion, lines 9000 to 10100, is only 
really accessed during the first run of 
the program, to initialise certain 
variables, create characters and shuffle 
the cards. 


Detailed 
breakdown 


10-20 Initialise variables and go to 
sub-routine to display instructions, 
create graphic characters and shuffle 
cards. 


30-90 Set or re-set variables and dis- 
play background, reverse of banker’s 
cards and initial credit. 


100-210 Display your cards and check 
various conditions. 


1000-1070 Sub-routine — Decide on 
additional card required and bet or 
twist, includes ‘mug’ traps. Calculate 
new values as a result of any bet. 


1200-1290 Sub-routine — decide the 
winner, display results and request if 
further hand required. 


2000-2060 Sub-routine — Selection of 
banker’s cards. 


PONTOON 


--« 


Total= 24 Total Dat 


Bo Mou want another hand? 


3000-3080 Select next card from pack, 
determine its value and make all ‘pic- 
ture’ cards 10. 


3130-3140 Add card value to existing 
total. 


3200-3240 Display the selected card 
with value only. 


3300-3380 Decide on card pattern, i.e. 
number of clubs, hearts, diamonds or 
spades, and layout of selected pattern. 


3400-3460 Set variables for display of 
new totals. 


4000-4020 Display characters as speci- 
fied in 3300 to 3380. 


4100-4130 Display results as specified 
in 3400-3460. 


4200-4230 Display graphic picture if 
Jack, Queen or King selected. 


6000-6070 Sub-routine to display rear 
of banker’s card. 


9000-9120 First page display of instruc- 
tions. 


9130-9260 Second page display of 
instructions — if required. 


9300-9390 Create spade, club, heart, 
diamond and single character with 10. 


9400-9460 Sub-routine to shuffle 52 
cards. 


9500-9600 Initialise PC array with data 
for drawing ‘pictures’. 


10000-10100 Response sub-routine. 


Variables 


BET Current amount bet on last 
card. 

BK _ Background colour for banker’s 
card. 

BT$ String of BET for printing in 
HIRES. 


C Card count — up to 52. 

CC Temporary card count — each 
hand. 

CH Characters for banker’s cards. 

CO Colour of suit. 

DA _ Data for creation of new cha- 
racters. 

E$ Escape variable. 


EE$ Prefix for ‘bust’ statement. 

H Horizontal position. 

] Increment counter in FOR — 
NEXT loops. 

J Secondary increment counter. 

MW _ My winnings — banker’s credit. 

N Current card value. 


NN _— Current card variable. 

Variable for each card in pack. 

P Position/location of new cha- 
racters in ASCII table. 

PC(I) Variable for ‘picture’ data. 


S Flag indicating —_ reshuffle 
required. 

SU Variable for each card suit. 

T Total score in current hand. 


T$ Total score in current hand. 
T$ String of T for printing in 


HIRES. 

TA Alternative total when Ace in 
hand. 

TA$ String of TA for printing in 
HIRES. 


TB Total bet on current hand. 


TB$ String of TB for printing in 
HIRES. 

Vv Vertical position. 

W$ = Writing/printings variable for 
HIRES. 

x Start horizontal position for 
cards. 


X$ Response variable. 
XX Horizontal position relative to 


Y Start vertical position 

YT ‘Your total— current hand score. 
Your winnings. 

YY Vertical position relative to Y. 
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10 TEXT: E$="" "+CHRS (27) :FAPER7: DIMN(S2) , FC (102) : GOSUB9000: YW=10000: 

MW=10000 

20 FPAPER2: INEO 

30 IFS=1THENGOSUB9400: S=0:C=0 

40 PRINTFRE("") :HIRES: FAPER2: CC=0: BET=0: TB=0: TBS=""ES=" "+CHRS (27) 

So IFMW<=OTHEN1OOS0 

60 EES="You are": INKO:POKES18, 2: IFYW<=OTHEN10050 

7O H=12:V=10:W$="Bank _":GOSUB4120:H=108:W$="Your credit _":GOSUB41 

20 

80 H=28: V=190: W$="Total=":GOSUB4120:H=126:W$="Total bet _":GOSUB412 

Oo 

90 GOSUB3440: CH=42: BE=1: GOSUB&000 

100 X=15: Y=110: GOSUBZ000: GOSUB1000 

110 X=X+42: GOSUB3000 

120 IFT>21THENCLS:PRINTES"L"ES"A “SEE$;" bust! !":GOSUB1200: GOT 
30 

130 IFCC=SANDYT=0THEN2000 

140 IFCC=STHENT=21 

150 IFYTSOTHEN1&80 

160 POKE618, 3: GOSUB1000: IFX$="N" THEN2000 

170 FOKE618, 2:GOTO110 

180 IFT?>170RTA>190RCC=STHENGOTO200 

190 GOTO110 

200 IFTA>TTHENT=TA 

210 CLS:GOSUB1 200: GOTOS0 

1900 IFCC=1THENGOTO1040 

1010 CLS:PRINT"Do you want to select another card?"; 

1020 GETX$: IFX$="N" THENPOEKES18, 2: RETURN 

1030 IFX$<>"Y¥"THEN1O020 


1040 PRINT: INFUT"Input bet value or T for twist":;BT$: IFBT$="T"THENR 
ETURN 

1050 BET=VAL (BTS): IFBET>YWTHENCLS:FRINT"You only have _"YW"left.":G 
0oT01040 


1960 IFBET<OTHENFRINT"No minus quantities allowed. "CHR$(11):GOTO104 
a 
1070 YW=YW-HBET: TR=TR+BET: TR&=STRS (TB) : FOKE618, 2: RETURN 
200 IFCT=1ANDCC<é =STHENYT=T+1 
1210 IF(YT=T)OR(T?21ANDYT>0) THENFRINT" You won": YW=YW+TB+TB: MW=MW-TR 
:GOTO1230 
1220 FRINT"T won. ":MW=MW+TH 
230 IFT=21ANDTA>OANDCC=2THENS=1 
1240 T=0:YT=0: TA=0: TA$="":CT=0 
1250 GOSUB3S440 
1260 FRINT"Do you want another hand?";:FPOKE618,3 
1270 GETX$: IFX$="N"THENI0100 
1280 IFX YY" THENL 270 
1290 POKE618, 2: RETURN 
2000 CLS:FRINT" JI will select my hand. ":FOKE618, 2: IFCC=STHENCT=1 
IFTA=TTHENT=TA 
YT=T: IFT=21ANDTA>OANDCC=2THENS=1 
2 T=0: TA=0: CH=127: BE=O0:EE$="Io am": CC=0: TAS="" 
2040 GOSUB6000 
2050 X=15: Y=20: GOSUB3000: GOSUB4000 
GOTO1190 
REM***#*GENERATE CARD VALUEXEKE 
C=C+1:CC=CC+i: 1FC=SATHENC=1 
> SU=INTCON(C)-1)/13) +1: IFSU¢< STHENCO=0EL SECO=1 
N=N (C0) —€13% (SU-1) ) : NN=N+48: SU=SU+90 
TPNN=49 THENNN=45 
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3650 TFNN=S8THENNN=96: 
3060 IFNN=S9THENNN=74: 
3070 IFNN=S0THENNN=81 
IFNN=61 THENNN=75: N=10 
T=T+N: T$=STRS (T) : IFNN=SSORTA >OTHENTA=T+10: IFTA>21 THENTA=0: TAS= 
IFTA>OTHENTAS=STR$ (TA): TAS="_ or "+RIGHTS(TA$,LEN (TAS) —1) 
REMKX4*XGENERATE CARD&*&*x 
CURSETX, Y, 3:FILL70, 1,23: CURSETX+30, Y, 3:FILL70,1,18 
CURSETX+3, Y+3, 3: CHARNN, ©, 1: CURSETX+19, Y+54, 3: CHARNN, O, 1 
CURSETX+3, Y+12, 3: CHARSU, 0, 1: CURSETX+19, Y+64, 3: CHARSU, 0,1 
CURSETX-5, Y, 3:FILL70,1,C0 
) REMKX*XSELECT CARD DISPLAY**x# 
IFNN>4S5ANDNNK 82THENGOSUB4 200: GOTO3400 
IFN/2< >INT (N/2) THENXX=10: YY=35: GOSUB4000 
IFN=20RN=3ORN=80RN=9THENX X=10: YY=22: GOSUB4000: YY=48: GOSUB4000 
IFN>STHENX X=3: YY=35: GOSUB4000: XX=18: GOSUB4000 
: YY=22: GOSUB4000: YY=48: GOSUB4000 
8: GOSUB4000: YY=22: GOSUB4000 
IFN=1OTHENXX=10: YY=12: GOSUB4000: YY=25: GOSUB4000: YY=38: GOSUB400 


IFN=10THENYY=51 : GOSUB4000 
O: V=¥+80: WS=T$+TAS: GOSUB4100 
TF TRS=""ORYT=OTHENS430 
> H=192:W$=TBS$: GOSUB4100 

IFYT >OTHENRE TURN 

H=46: V=10:W$=STRS (MW) : GOSUR4100 

H=190:W$=STR$ (YW) : GOSUB4100 

RETURN 
4000 REM*XkXDISPLAY CHARACTERS#Xx* 
4010 CURSETX+XX, Y+YY, 3; CHARSU, 0,1 
4020 RETURN 
4100 REMK**kDISFLAY CARACTERSKX*k 
4110 WS=RIGHTS (WH, LEN (WS) —-1) 
4120 CURSETH, V, 3: FORI=1TOLEN (W$) : CHAR1 27,0, 0: CHARASC (MID$ (W$,1,1)), 
Oy 2 
4130 CURMOVS, 0,3: NEXT: CHARL27,0,0: RETURN 
4200 CURSETX+10,Y+1 
4210 FORI=1TOS2STEP2: DRAWPC (I) ,PC(I+1),12:NEXT 

20 FORI=62TO1L02STEP2: CURSETX+PC (1), Y+PC(I+1),1:NEXT 

RETURN 

REM**X*xXGENERATE BANKERS CARDSK#Xx* 

X=15: Y=20: FR=20 
6020 CURSETX,Y,3:FILL70,1,FB: CURSETX+30,Y,3:FILL70,1,18 
6030 FORI=X+3TOX+1S5SSTEFPS: FORJ=Y+6TOY+S4STEFS 
6040 CURSETI,J, 3: CHARCH, 0, BK 
6050 NEXTJ:NEXTI 
6060 X=X+42: IF X=99THENRETURN 
6070 GOTO6020 
99000 FPRINTCHR$ (12) sFRINTCHRS (4) E¢"N"ES"A 
d:INK4 
9010 POKES18,2:FRINT:FRINT:FRINT" This program simulates the card" 
9020 PRINT"game of FPontoon.":PRINT:FRINT" The computer will ask yo 
u& to “s 
9030 FRINT"first select the amount of money you wish 
he 
9040 PRINT"first card, followed by a choice of:—"CHR$(10)"a) betti 
ng mo"; 
9050 PRINT"re money or b)"ES"ET"ESCHRS (8) "Dwisting 
9060 PRINT"on subsequent cards.":FRINT:PRINT" The program will all 
ow for"; 
9070 PRINT" Aces high or low, and 5S card tricks." 
9080 PRINT:FRINT" When responding to a question with a Yes or No, 

it is"; 

9090 PRINT" only necessary to press Y or N. All other keyboard " 
9100 PRINT"inputs must be followed by one press of the RETURN key. 


AX KPONTOONKAKE"CHRS (4 


to bet on t 


9110 PRINT: FRINTES"A Fress X for further explanation" 
9120 FRINTES"A or Space bar to start game.":GOTO9200:GOTO1000 
9130 PRINTCHRS (12) =: PRINTCHRS (4) ES "N"ES"S XXXKPONTOONKS KKEK"CHRS (4 
>): INK4 
9140 PRINT: PRINT:FPRINT" The object of the game is to beat 
mk by "3 
9150 PRINT"achieving a higher score, up to a maximum of 21, in each 
hand." 
9160 PRINT:PRINT" You each start with a kitty of 
e"; 
91790 PRINT"computer is the Bank, 
until" 
9180 PRINT"his total is as close to 21 as he can get, without going 
"ES; 
9190 PRINT"Abust!":FPRINT:FRINT" If a pontoon is dealt, ie a pictur 
e card"; 
9200 PRINT" or a 10 with an ace, then the pack will be re-shuffl 
ed at "3 
9210 FRINT"the end of the hand." 
9220 PRINT:FRINT" With an ace in the hand, the display will give tw 
oO : 
92230 PRINT"alternative results if the totals are below 22. You may 
elect"; 
9240 PRINT"to draw another card, if not the 
scores"; 
9250 PRINT" is recorded.":PRINT 
9260 PRINTES"APress Space bar to start the game":GOTO10000 
9300 REM*KKXCREATE CHARACTERSK&K 
F=91 
FORI=0TO7: READDA: FOKE46080+ (F x8) +1, DAs NEXT 
READF: IFF=OTHEN9S0O0 
GOTO9S20 
DATA4, 14, 21,21,4,0,0,0,92 
9360 DATA4, 14,31,31,10,4,4,0,93 
9370 DATA27,27,31,14,4,0 0,94 
9380 DATA4S, 14,21,14,4,0,¢ 195 
9390 DATAO, 38, 41,41,41,41,28,0,0 
9490 REM*X*X**XSHUFFLEXKEX 
9410 TEXT: CLS: FOKES614, 10: PRINT: PRINT" 
ed." 
9420 PRINTSPC(10) "Please wait." 
9430 FORI=1TOS2:N(1)=I:NEXT 
9440 FORI=17TO52: D=INT (RND(1) *52)+1:DD=N(1) 
9450 NC(I)=N(D):N(D)=DD:NEXTI:C=0 
9450 RETURN 
9500 FORI=17T0102: READFC (1) :NEXT:GOTO190000 
SSiO: DATAL 15 15,1, els tol, ts 1s45—2 
9520 T -6, 0,-2,0,10,6,9 
9530 9, -8,0,8,5,10,-16,0,5,-10 
9540 DATA-S, 10,5, 10,6,0,5,—-10,—-5,10 
9550 DATAO,10,-1,—-1,—-1,1,—1,—-1,-1,1 
9560 DATA-1,—-1,—-1,1,0,-12,9,9,6,0 
9570 DATA11,19,14,19,12, 20,11, 22,12, 22,13, 22,14,22 
9580 DATA1I2,27,12,29,12,31 
9590 DATA1I3S,37,13,359,13,41,12,46,13,46,14,46,15,46 
9600 DATA1I4,48,12,49,15,49 
10000 FX$="" "THENGOSUB9400: RETURN 
10010 "X" THEN1 0000 
190020 GOTO9130 
10050 TEXT: POKE614,10:FRINT:FRINT" "EES" skint! ** 
10060 PRINT:PRINT" Please re-run the program if you 
10070 FRINT"want another game." 
10100 TEXT: END 
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and he does not *see* your hand 


higher of the two 


The cards must be re-shuffl 
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BOMB BUN. 


By Pat Cooper 


Here’s a program for all budding pilots. It’s a simple 
version of the arcade game called ‘Bomber’. 


The idea is to clear the screen of buildings so that you’ve 
got room to land, but you’ve only got a limited amount 
of fuel. The fuel and height of the buildings are 
determined by the skill level you’re playing at. 


After each successful landing, the skill rating is auto- 
matically increased by 1, to make things hard the next 
time around. 


There are instructions on controlling the plane within 
the program, and they are self-explanatory. 
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90 PAPER4: INES 470 :PLOTX,Y, "Ci" 
99 PRINTCHRS (17) 480 :NEXTY:NEXTX:H=3S 

100 TEXT: RELEASE: RESTORE 490 RETURN 

110 CLS:FLOTS,10,"Do you want instructions?" SOO REM 

120 GETAt: IFA$="Y" THEN SO0ELSE1000 S20 J=K+1:G=X:F=1: IF J >26THENRETURN 

130 REM S30 IFSCRN(G,J)=910RSCRN(G, J) =9STHENW=W+1 
140 FLOT11,9,12:FPLOT12,9, "FERFECT LANDING " S40 PLOTG,J,"_" 

150 RESTORE SSo RETURN 

160 RETURN 500 REM 

170 REM S10 PLOTG,3," “ 

180 EXPLODE 20 IFW=2THENW=0: F=0: EXPLODE: RETURN 

190 FLOT9,9,"Oh Dear, you* ve crashed" 630 IFJ=26THENW=0: F=0: EXPLODE: RETURN 

200 WAITSOO 640 J=J+1:B=B+1:GOTO 
210 RETURN 700 FORCR=1T0O6: READC 
230 REM 705 FORCH=#B400+8*CTO#B400+8*C+7: READR: FOKECH, R: NEXT: NEXT 
240 PLOT11,11, "Another Try ? (Y/N)" 710 DATAI23, 48,56, 28,46 { 

245 720 DATA1I24,0,0,0,63 
250 Y" THENRE TURN 730 DATA125,0,0,0,4 


162,60,4 
762,0,07F 


: WTHENSAS 740 DATA9S,0, 10,14, 4,14,14,47_ 
PAPERO: INK7: CLS: PRINTCHR$ (17) : END 750 DATA91,31,18,18,31,31,18,18, 31°C 
CLS: PRINT: PRINTSFC (15) "BOMB RUN” 760 DATA9S, 62, 18,18, 62,62, 18,198,627] 


PRINT: PRINT:FRINT" Your Bomber is running out of fuel and you 770 RETURN 
got to find "3; 1000 REM 
FPRINT"somewhere to", "land." 10190 D=A:L=4:F 
PRINT:PRINT"To do this, the buildings below have got to be dem 1020 FORX=1TO036 
olished." 1030 : K=H 
340 PRINT:FRINT"To increase height, press the Cursor Up’ key, but 1040 : IFSCRN(X+2,H)<> 
keep an eye ": FLODE 
PRINT"on the Fuel.” 1050 : PLOTX,H,"{!3":FLOT1,0,2 
S PRINT: PRINT"Fress “Cursor Down” key to release a bomb." 1060 : PLOT25,0,"LIVES: ":PLOTS2,0,RIGHT$(" "+STR#(L),2) 
PRINT: PRINT:FRINT"Skill level (1=Easy,S5=Hard) "3; 1070 : PLOT3,0, "FUEL: ":FLOT9,0,RIGHTS(" "+STR(FL) 2) 
INPUTA: IFA 1ORA>STHENS70ELSE1000 1080 : THENGOSUB 170:GOSUB 230:GOTO100 
REM 1090 : SEYS 
CLS: GOSUB700 1100 : IFX$=CHR$ (10) ANDF=OTHENGOSUBSOOEL SEWAIT (10) 
FORX=1TOSSSTEF2 1110 : IFX$=CHRS (11) ANDFL *OANDH>3THENH=H-1i:FL=FL-1 
: FORY=INT (9+ (RND (1) *15-D) ) TO2Z6 1120 : IFF=1THENGOSUBS96 
1140 : PLOTX,K," ~ 
1150 : IFHS2S5ANDX=SSTHENFLOTSS, 26"{'3":GOSUB1S0: A=D+1: GOSUB230: GOTO 
1000 
1155 


O:W=0:FL=30-INT((RND(1) kD*¥4+1) ) s GOSUB400 


SOORSCRN (X,H) < H#ZOTHENL=L—-1:PLOTX+3,H," "EX 


NEXT 
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1160 


1170 


H=H+1 
GOTO1020 
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 PRRAL—OUT 


By Martin Laws 


This game in Basic is a cut down version of the Arcade 
game. Your task is to knock the bricks out of the wall 
with your bat. The program is made difficult by the fact 
that your bat keeps drifting in the direction that you last 
sent it. 


Although not particularly fast, this game will keep you 
amused for several hours and does offer plenty of scope 
for improvement. 
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4IUMQ) IUC 


Lv 


3 HS=0:SC=0 
8 IFSC>HSTHENHS=SC 


10 


RESTORE 
FOR I=0 TO 7:READ A 
POKE 46840+1,A 
NEXT I 
DATA 64,76, 94,127, 127,94, 76,64 
FOR I=0 TO 7 
READ B 
POKE 46376+1,B 
NEXT 
DATA 64,64, 64, 124,124,765, 76,76 
FOR I=0 To 7 
READ C 
POKE 46384+1,C 
NEXT I 
DATA 64, 64,64, 79,79, 76, 76576 
FOR I=0 TO 7 
READ D 


POKE 47080+1,D 
NEXT I 

DATA 64,54, 64,127, 127,64,64,64 
FOR I=0 TO 7 - 


READ E 
POKE 47064+1,E 

NEXT I 

DATA74, 74, 76576, 765 754 76,76 
FOR I=0 TO 7 

READ F 

POKE 46832+1,F 

NEXT I 

DATA 0,6,0,0,0,0,0,0:G0SUB 20000 
IF M=OTHENM=1:GOSUB21000 
LORESO:GOSUB 12000 

FOR I=26 TO i STEP -1 

PLOT 1,1,"<¢" 

NEXT I 

PLOT 1,1, "&" 

FOR I=2 TO 37 

PLOT I,1,"3" 

NEXT I 

PLOT 38,1,"%" 

FOR I=2 TO 26 

PLOT 38,1,"°{":NEXTI 


GOSUER4000: PLOTO, 25, CHR (6) : BN=3: SC=0: B= 0: GOSUB 


13000:GOTO 1517 


M1=17:M2=M1+12MS3=M1+2 
PLOT M1,25,"3" 
PLOT M2,25,"3" 
PLOT M3,25, "3" 
1=48620 
D=RND (1) +. 5: ONDGOTOS10 
POKE 1,95 
GOSUB 10050 
GOSUB10050 
1=1+41: IFPEEK (1) <33THEN440 
GOSUBS000 
IF PEEK(I)=123 THEN I=I-41:GOTO8i0 
IF PEEK(I)=125 THEN I=I-41:D=1:GOTO1050 
IFPEEK (1) =91 THENGOSUBS000: I=I-41:GOTO700 
IFPEEK (1) =93THENGOSUB7000: I=I-41:GOTO700 
>4#BFE8 THEN 1000 
I-41, 32 
390 
POKE 1,95 


; GOSUB 10050 


GOSUB 10050 

T=I-41: IF PEEK (I)<33THENSSO 

GOSUBS000 

IF PEEK(1)=125 THEN I=1+41:GOTO810 

IF PEEK(I)=123 THEN I=1+41:GOTO700 
IFPEEK (1) =38THENI=1+41:G0TO390 

IFPEEK (I) =91 THENGOSUBS8000: I=I+41:G0TOS10 
IFPEEK (1) =93THENGOSUB7000: I=1+41:GOTO910 
POKE I+41,32 

GOTO 4600 

POKEI,95 

GOSUB10050: GOSUB10050 

I=1-39: IFFEEK (1) <33THEN740 

GOSUBS000 

IFPEEK (1) =125THENI=1+39: GOTOS90 

IFPEEK (1) =123THENI=1+39: GOTO600 

IFPEEK (1) =37THENI=1+39: GOTOS10 

IFPEEK (1) =91 THENGOSUB8000: I=1+39: GOTO390 
IFFEEK (1) =93THENGOSUB7000: I=1+39: GOTO390 
POKEI+29, 32 

GOTO700 

POKEI,95 

GOSUB10050: GOSUB10050 
I=1+39: IFPEEK (1) <33THENSSO 

GOSUBS000 

IFPEEK (1) =123THENI=I-39: GOTO3S90 

IFPEEK (1) =12S5THENI=I-39: D=0: GOTO1050 
IFPEEK (1) =91 THENGOSUB8000: I=1-39: GOTO&00 
IFPEEK (1) =93THENGOSUB7000: I=I-39: GOTO400 
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850 IFI>#BFBSTHEN1000 3 PLOT 6,14," 

870 FOKEI-39,32 " 

880 GOTOS10 3 PLOT 13,18," 

1000 FORI=2T037:PLOTI,25," "NEXT 13060 WAIT 150: RETURN 

1010 GOSUBSO00: WAIT200 20000 FOR I=0 TO 7 

1015 BN=BN—1: IFBN=OTHENZ$="GAME OVER":PLOT14, 15, Z$:GOTOS 20010 READ H 

1017 Z#="Balls Remaining = "+STR$(BN) +" Score" : 20020 FOKE 46808+1,H 

1018 PLOT1,0,Z% 20020 NEXT I 

1020 GOT! 20040 DATA 64, 255, 255, 255, 255, 255, 255, 255 

1050 N=1: IFB=108THENGOSUB6000: B=0 20050 FOR I=0 TO 7 

1055 J=M1+#BF91—-40: I=N 20060 READ N 

1056 IFI=J-1THEN600 ; 20070 POKE 46824+1,N 

1060 IF I=J THEN 600 20080 NEXT I 

1065 IFI=J+1ANDD=1 THEN700 ; 20090 DATA 64,254,254, 254,254,254, 254,254 

1070 IF I=J+1 AND D=OTHEN60O 20095 FORI=iTO26:FLOTO, 1,5:NEXT 

1080 IF I=J+2 THEN 700 20100 RETURN : 

1090 GOTO 700 21000 TEXT:PAPERO: INK7:CLS 

5000 SOUND1,80,0 21010 PRINT 

5010 PLAY1,0,1, 200 21020 PRINTCHRS (4) ;CHRS (27) 3"J3"sCHRS(27)3"A 44k "3 CHRS(27)3"N 
5020 RETURN "3 ? ; ; 
6000 REM BRICKS 21025 PRINTCHR$(27);"E BREAKOUT"; 

6005 FORI=OTOS 21 PRINTCHRS (27) 3 "A"3CHRS(27)3"J tok" 
6010 FORI=2TOS7STEF2 : 21035 PRINT:PRINT:FRINT:FRINT" 3333 
6030 PLOTI,J+6,"C" ; " 

6040 PLOTI+1,J3+6,"1" 21055 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT” POINTS":F 
6050 NEXTI RINT 
6052 TZ=3/2: ONTZGOTO6055, 6057 21060 PRINT" "SCHRS(27);"A CICICI. wee e eee 15 Points":PRINT 
6055 PLOTO,I+6, CHR$ (1) : GOTO6060 21070 PRINT" ":CHR$(27);"B CILICI. 7 ...10 Points":FRINT 
6056 PLOTO,J+6, CHR (2) : GOTO6060 21080 PRINT" "SCHRS(27);"D [ICICI 5 Points":SRINT 
6057 PLOTO, J+, CHRS (4) 21085 PRINT: PRINT: FRINT:FRINT" +3 3 FFF333333933" 
6060 NEXTJ:RETURN “21090 PRINT:FPRINT" PRESS ANY KEY 
6999 REM XRIGHT HIT ON BRICK 21091 TEXT:PAPERO: INK7:CLS 

7000 POKEI,32:FOKEI-1i,32 21092 PRINT 

7050 JZ%=(1-#BES81) /40: GOSUB9000 21093 PRINTCHR$ (4) ;CHR$ (27) 3"5"3;CHRS(27)3"A xk  CHRS (O27) 2 "Ni 
7080 B=B+1 "s / 

7100 RETURN 21094 PRINTCHR$(27);"E BREAKOUT"; 

7999 REM® LEFT HIT ON BRICK 21095 

8000 POKEI, 32:FOKEI+1,32 21096 PRINT:PRINT: PRINT: PRINT" 

8050 J%=(1-#BB80) /40: GOSUBI000 " 

8080 B=B+1 21100 PRINT:PRINT 

8100 RETURN 22030 PRINT" ";CHR$(27);"B KEYBOARD CONTROLS" 

9000 TZ=(14-J3%) 42: SC=SC+SATZ 22040 PRINT:FRINT" 

9010 PLOTSO,0,STRS$(SC) : RETURN 22050 FRINT" (Space Bar) 

10050 A=PEEK (#2DF) AND127 22055 PRINT" * 

10060 IF A=8THEN10100 22060 PRINT:FPRINT" 

10070 IF A=9THEN10150 22065 PRINT: PRINT 

10080 RETURN 22070 PRINT” Is your Cursor on ?":GETAS 

10100 IF Mi=2 THEN RETURN 22080 Y"THENPRINTCHR$ (17) : GOTO22100 

10110 M1=M1-1 22090 N" THENGETAS: GOTO22080 

10120 PLOT M1+3,25," ":PLOTM1,25, "3" 22100 PRINT:PRINT" Is your Key Click on ?":GETAS 

10130 RETURN 0 IFAS="Y"THENPRINTCHRS (4) : CLS: RETURN 

10150 IF Mi+2=37 THEN RETURN > “N" THENGE TAS: GOTO22i1i0 

10160 M1=M1+i:PLOT M1-1,25," " ) CLS:RETURN 

10170 PLOT M1+2,25,"3" 

10180 RETURN 

12000 Z=CHRS (16) +CHR$ (1) +CHR$ (12) +" BREAKOUT "+CHR$ (8) +CHRS (3) 

12010 Z$=Z$+" High Score “+STR$(HS) 

12015 FORI=0T039: POKE#BBS0+1, 32: NEXT 

12020 FORI=iTOLEN(Z$) 

12030 POKE#BR7F+1, ASC (MID$(Z#,1,1)) 

12040 NEXT 

12050 RETURN 

13000 POKE #2DF,0 

13010 Z$=CHR$(12)+"PRESS ANY KEY TO CONTINUE"+CHR$ (8) 

13020 Q$=""R’ =Resign"+CHR$ (8) 

13030 PLOT 45,16,Z$:PLOT 15,18,Q¢ 

13040 GET AS: IF AS="R" THEN HIRES: TEXT: END 


CH 
+} 
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classisieds 
FOR SALE 


MPS 2 plus system motherboard with four connectors 
cost £120 
UNUSED 
Offers High Wycombe 452029 


MICROTAN 65, EXPANDED TANEX, BASIC, NEW XBUG, 
TANBUG V2.3. TOOLKIT, MINIBOARD, MPS 1, MANUALS 
£110 


SYSTEM MOTHERBOARD, 39K TANRAM UNUSED £50, 
TANSOFT GAZETTE 1 TO 7 OFFERS, MICROTAN 
COMPANION £5, RING FAWLEY (0703) 891606 


Small Ads — 15p a word Max 30 words 


Calling all Advertisers! 


The Oric Owner is the only magazine 
devoted to the Oric-1 computer. 


Virtually every person who buys an Oric 
will get this magazine. If you are selling 
Oric related products can you afford to 
miss this chance to reach the market you 
are aiming for? 


For full details of our advertising rates 
contact Carolyn on Ely 2271 and see if she 
can help you. 
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Regulars 
Oric Quickies 


Star-Scan 


This interesting routine creates 
the impressions of hurtling 
through a field of stars. A simple 
pattern of lines is set up on the 
Hi-Res screen and then made to 


REM STAR-SCAN APRIL 93 
HIMEM#2O000 

HIRES 

INK 4:PAPER4 

CURSETO, 0, O: DRAW239,199,1 
CURSET239, ©, 0: DRAW-239, 199, 1 
CURSET120,0,0: DRAWO, 199, 1 
FORY=99TOOSTEP-3 


> le ON 


disappear by changing the ink 80 CURSET?,Y,0:FILL2,1,7 
and paper to the same colour. B85 CURSET7,99+(99-Y) ,O:FILL?,1,7 
By scanning a white attribute > CURSET?7, ¥,0:FILL2,1,4 
along the side of the screen the 75 CURSET?7,99+(99-Y) ,O:FILL2,.1i.,.4 


PLAYO, =,0,0:SOUND4,Y,7 
> NEXT 
GOTO7O 


impression of movement is 
given. The sound command 
gives a rush of white noise for 
better effect. 


Pattern 


This short program displays an 
interesting Kaleidoscope type 
pattern which is then shaded in 
using a constantly changing mix- 
ture of colours. By only chang- 
ing the colour on alternate lines 
pastel shades of the colours can 
be obtained. ; 


To add more interest the pro- 
gram could be altered to display 
random patterns or geometric 
shapes. 


REM PATTERN BY FRANK WOODCOCK 

FPAPERO: CLS: HIRES: PRINTCHRS (17) 
FORA=239TOOSTEP-1:CURSETA, 0, 3: DRAW239-Ak2, 199, 2:NEXT 
FORA=0T0199: CURSETO, A, 3: DRAW239, 199-Ak2, 2: NEXT 


FORA=0TO07: PAPERA: FORB=0TO7: FORC=16TO22: IFB+16=C THEN C=C+1 
FORD=40960TO49000STEFSO: FOKED,B 
POKED+1,C:NEXTD:WAIT1I00: NEXTC,B,A: GOTOSO 
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ORIC Epson FT III Printout 
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Oric manual. 


afi F,0,2 


This subroutine prints out on the Epson MX80F/ 
TIII the entire HIRES graphics screen. 
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Dear Sirs, 


I heard the news, I was impressed, 
They said that ‘Oric’ was the best. 
Off with money clutched in hand, 
To buy an ‘Oric’, ain’t life grand! 


They said no software could be got, 
I felt quite faint, and went all hot, 
Then Laskys rang me on the ‘phone, 


We've software here, no need to moan. 


Off to Laskys, parked the car, 
And walked a distance, not too far. 
Bought two tapes and felt so glad, 


They didn’t work, which made me mad. 


Back Laskys, spoke to Liz, 

A charming girl who knew her ‘bizz’ 
A change of tape from her obtained, 
Twas just as bad, so nothing gained. 


Saw Mr Taylor, helpful chap, 

All computers he could zap, 

Went past hours, well over the top, 
Someone locked us in the shop. 


I ran the tape all full of glee, 
It won’t go in, oh, woe is me. 
Then in walked son, a clever youth, 
Who said in accents quite uncouth, 


Pirie 


‘Dear ancient Dad, it just won't work, 
You're running it fast, you silly burke’ 
And then with beaming smile wide 
He turned it to the other side. 


I rang ‘Oric’ once again, 

I’m sure you think I’m quite a pain, 
They said I needed book and tape, 
The two things didn’t correlate. 


They then said ‘Please ring Tangerine 
At Ely’, please what did they mean? 
I just got a high pitched howl, 

Which made my temper really foul. 


Then Tansoft product I did ring, 

Local exchange success did bring, 
A sexy voice the other end 

Said all the info. she would send. 


Today the postman brought the lot, 
Magazine, book and list I got. 
Send ten pounds at once she said, 
A year’s supply to read in bed. 


Thanks to all who gave their time, 

To cheer me up, and hence the rhyme. 
Oric, Tansoft, Laskys too, 

Many thanks must go to you. 


I hope that now I[’ll get it right, 

With modern things I’m not too bright, 
All these prints and beeps and pokes, 
Are difficult for we older folks. 


Mrs C. R. Laurie 
44a Lower Gravel Road, Bromley, Kent 
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Dear Paul, 

With reference to the reader’s letter in issue 1 concerning cassette saving. 
Can you tell me which cassette recorders you recommend for use with the 
Oric. 


R. Hodges, Cheltenham, Glos. 


Ed.: It is very difficult to recommend one particular type of cassette 
recorder as most models should work properly once they have been 
correctly set up. For your information we use the National Panasonic 
slimline RQ—2734, for all our software development but I am not sure if 
this model is still available. 


Dear Paul, 
Having bought my Oric from Dixons recently I would now like to connect 
it to an EPSON MX80 printer. I do not feel confident enought to build my 
own printer lead, so can you suggest where I can get one? 

A. Thompson, Reading, Berks. 


Ed.: The Oric makes use of the well known centronics type printer 
interface. We have found that printer leads for the Apple or Dragon 
computers will fit the Oric. Most computer shops should have these, but be 
warned the price can vary from between £12 and £20, so shop around. 


tn | 
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subscription 


Why you should 
subscribe to 
ORIC OWNER 


Your Oric 1 is one of the most powerful low-cost computers on the market today. Oric 
Owner is the only magazine totally dedicated to the Oric and its supporting hardware 
andsoftware. 


From issue to issue Oric Owner is able to bring you in-depth information on the Oric, 
advance news on the latest add-ons, superb programs to try and ‘behind thescenes’ 
interviews with the engineers who designed it. 


If you wish to keep ahead of the latest developments and news on the Oric then Oric 
Owner is essential. At only £10 for a year’s subscription of 6 issues (£15 for overseas 
readers) can you afford to be without Oric Owner? 


SUBSCRIBE TODAY! 


subseription form 
Please send me the next 6 issues of ORIC OWNER 


lenclosea Cheque/ACcesSs .........:112 0 cesses Barclaycard ...........cscccccseees for £10 


PLEASE NOTE: All cheques must be made payable to: Tansoft Ltd, 3 Club Mews, Ely, 
Cambs CB7 4NW 
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GU 4 GIA 


It seems that the Oric is taking 
off in clubland. We’ve been told 
of two new user groups for the 
Oric. 


Alan Donaldson of 111 Huntly 
Drive, Glenrothes, Fife, is set- 
ting up a National user group 
which he is calling O.R.U.G. 
and would have a regular news- 
letter and if possible, meetings. 


He is also hoping to put up a - 


bulletin board on Micronet 800 
if enough people join to make it 
worthwhile. In addition to club 
notices he would like to have 
some sort of program exchange 
on Micronet 800. The group 
should be set up and running in 
the next two months. 


The Oric Users Group is being 
formed by Alex Cross of M.C.I. 


1. DIG DOG. 


2. COSMIC CONVOY. Race across space guarding the precious transporters. 
Full arcade play features. 100% machine code 


in Wembley. He intends it to 
become the best user group in 
the United Kingdom and it is 
being formed with Oric’s appro- 
val. In addition to a regular 
newsletter he is hoping to offer a 
range of Oric software and tells 
us that new members will 
receive a number of free ‘good- 
ies’ on joining. The membership 
fee will be less thant £10. Full 
details from Oric Users Group, 
5 Watford Road, Sudbury, 
Wembley, Middx. 


We have also been informed 
that Aylesbury ZX Computer 
Club is expanding its horizons to 
support the Oric. Meetings are 
held every Friday at Quarren- 
don School, Aylesbury at 7.30 
p.m. Further details are avail- 


ARCADE ACTION ON THE ORIC -1 


TASKSET Ltd presents two brand new, superfast action games both with Hi Res 
Colour and full sound. 


Fast action tunnelling. Can you help Mutley dig for his bones 
before the rats get ‘em. 100% machine code 


All our software is Guaranteed to load. 
All our prices include VAT and P & P. 


TASKSET Ltd 51-53 High Street Bridlington YO16 4PR 


0262-602668 24 hrs. 


able from the club secretary, 
David Nawotnik, on Aylesbury 
630867 (evenings only). 


£6.90 


£6.90 
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CONGRATULATIONS! 


You have chosen the most remarkable small computer 
ever designed. Now youare anxious to get the very best out of it. 
but you have no knowledge of computing, or not much? 
Now youneed this book 


,» Bb . 
BRERPRPE EDD 
ar 
2 2 eee 


The book that introduces you to the ORIC-from 


plugging in to programming. TO: TANSOFT LTD., 3, CLUB MEWS, ELY 


Here is Microsoft BASIC-programming, how to use CAMBS, CB7 4NW 

ORIC’s graphics, colour and sound systems, and 

how to use the data processing capabilities. oe rush me a copy of lan Sinclair’s new 
00 

And there are lots of useful or fun programs. If THE ORIC-1 AND HOW TO GET THE MOST 

you want to get the most out of the best machine, FROM IT 


*| enclose a cheque for £6.95 (for a post free 
copy) payable to Tansoft Ltd. 


you need the best guide ‘ 
or please charge my *Access/*Barclaycard 


; ee ee Account number: 
*Delete as relevant 
ORIC = | Please send my copy of the book to: 


by lan Sinclair Name 


Address 


You can order your copy direct from Tansoft Ltd. 


Send off this coupon NOW 


Signature 
Date 


GRANADA PUBLISHING 


